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ment occurs, users should order a complete new program 
from the Program Information Department. 
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Addenda / Errata 



CHANGES TO 1620 LESS PROGRAM FILE NO. 10.3.003 - November 3, 1961 



On page 4 A in Table 2, there are two numbers in column TI (N) 
far the row where N«3. Instead of 7, this row should be 9. 

On page 8 the sixth line from the bottom reads 7-11, etc. It 
should read 7-10 time duration of the job - D (I, J). 

On page 10 the last line should read, "several type 2 and 3 error 
messages however." 

Where this program is run with the overflow switch on stop, as 
the writeup specifies, it will stop at location 1390 when executing 
a compare instruction. To correct this change two instructions on 
page 19- 

Location Old Instruction New Instruction 

01390 C Test, Most C Most, Test 

01402 BH Error 4 BL Error 4 

To make this change in the object program listing on page 24, 
change the first 24 columns of card number 20 (columns 79-80) from: 

240326303240460242601100 to 
240324003263470242601300. 

All decks mailed after November 15, 1961, have been corrected. 



PART I - "TrTROOUCTf O;:: 

Least Cost Estimating and Scheduling (LESS) refers to a management 
science technique for analyzing certain business projects. The three 
phases of this analysis are (l) planning, (2) scheduling, and 
(3) determining project cost to completion time relationships. The 
first two phases, commonly called arrow diagram planning and critical 
path scheduling, are also the basis of many similar business management 
methods such as the Navy's Program Evaluation and Review Technique (PERT) 
and the Air Force's Program Evaluation Procedure (PEP). 

This report states the rules for constructing an arrow diagram, and 
describes an IBM 1620 (Card System) program for scheduling. Many improve- 
ments have been made over the 1620 (paper tape system) scheduling program 
(file IO.3.OO2). There are no restrictions on numbering of jobs (except 
all numbers are three digits) or on the order of input cards. For a 
20K computer, the sum of jobs and nodes may be as high as 1672. 
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IBM 1620-LESS "LEAST-COST ESTIMATING AND SCHEOUL ING»«SCHEOUL ING 

PORTlON»~»CARO» 
AVAILABLE 1ST QUARTER 1962 

AUTHOK- RAY N. SAUER-IBM 



DIRECT INQUIRIES TO 
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DIAGRAM OF ITS COMPONENT JOBS THIS PROGRAM FINDS THE 
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START AND FINISH TIMES FOR EACH JOB AND THE TOTAL AND FREE 
FLOAT TIME ARE CALCULATED. THE SUM OF NODES AND JOB ARROWS 
MAY BE AS HIGH AS 1672. STORAGE PROGRAM - 3275 DIGITS. 
20K 1622 CARD REAO PUNCH. 



THIS PROGRAM ANO ITS DOCUMENTATION WERE WRITTEN BY AN 
IBM EMPLOYEE. IT WAS DEVELOPED FOR A SPECIFIC PURPOSE ANO 
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FORM. IBM SERVES AS THE DISTRIBUTION AGENCY IN 
SUPPLYING THIS PROGRAM. QUESTIONS CONCERNING THE USE OF 
THE PROGRAM SHOULD BE DIRECTED TO THE AUTHORS ATTENTION. 
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PART II - ARROW DIAGRAM PLASHING 

Fundamental to the technique feeing described is a graphical 
representation of any project by an arrow diagram which defines all jobs in 
the project and the order in which they must be done. Figure 1 is 
such a diagram, which represents the sequence of jobs necessary to replace 
a pipe line. This diagram will be used to illustrate several facts 
concerning arrow diagraming. 

(1) Every job is represented by an arrow, and denoted by the 
numbers at the tail and head of the arrow. This set of 
numbers oust be unique. 

ex. Job (12, Ik) is a pressure test. 

(2) Jobs whose heads bear the save number as the tail of a 
given job oust lonediately preceed the given job. 

ex. Job (U, 12) preceeds job (12, Ik). That is (12, Ik) 
cannot be started until (11, 12) is finished. 

(3) Jobs vhoee tails bear the same number as the head of a 
given job mist lonediately succeed the given job. 

ex. Job (ik, 15) succeeds job (12, Ik) and nay not be 
started until (12, Ik) and (13, 1*0 are finished. 
(k) Jobs whose tails bear the sane number nay be done concurrently, 
ex. Jobs (11, 12) and (ll, 13) may be done c o nc u rr en tly. 

(5) Dunmy Jobs (denoted by dotted line arrows) are insertad 
to conplete the logic of an arrow diagram. 

ex. Dunmy (6, 8) shows that the Jobs immediately nreceeding 
job (8, 11) hare heads numbered 6 as well as 8. That is 
jobs (5, 6), (fc, 6), and (*, 8) preceed job (8, 11). 

(6) Dummy jobs nay also be introduced to satisfy rule 1. 
(All jobs must have a unique set of numbers.) 
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e::. Jobs (2, 3) and. (2, 20) are concurrent jobs that 
must be complete before starting (3, k). Since they could 
not both be called (2, 3), dummy (20, 3) was inserted. 
The rules presented thus far allow descriptions of the technological 
sequence of jobs within a project. Actually, this planning should include 
a time estimate of each diagrammed job. A few additional rules will now 
be given that allow the injection of the time element. 

(7) Every job has an estimated elapsed time associated with 
it. In the case of dummy jobs, this time is zero. This 

time may be used along with arrow he ad and tail to denote a job. 
ex. The time estimated to complete the pressure test 
(12, lk, l) is one day. 

(8) In order to later calculate start and finish dates for 
each job, the first job is usually designated as lead time* 
ex. Job (l, 2, 10) states that the project may begin on 
the 10th day of a particular calendar (or 10th hour of a 
clock). That is the first actual jobs (2, 3) and (2, 20) 
may begin on the 10th day. 

(9) Time restraints on the execution of certain jobs may be 
described by the use of arrows with associated times, 
ex. Restraint (l, 5, 28) means that the old pipe line 
must not be deactivated until the 28th day. 

(10) Material delivery restraints do not always have to be tied 
to the calendar as in (9), but may be in elapsed time. 

ex. Restraint {k, 1, 30 ) means that the pipe will be 
delivered 30 days after the completion of job (3, k). 
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PART III - CRITICAL PATH SCHEDULING 
The fact that scheduling has not yet been mentioned is a unique 
advantage of this technique - planning and scheduling are recognized 
as two separate functions. After completing the arrow diagram and 
estimating the duration of each job, a schedule (in the form of a 
detailed tine table) is easily obtained by a few simple calculations. 
The following nomenclature is used. 



I Tail of a job, dummy, or restraint arrow. 

J Head of a job, dummy, or restraint arrow. 

N A Hode. Either the head or tail of an arrow. 

D (l,J) Estimated elapsed time for job (l,J). 

TI (N) The earliest time that a Job whose tail is N 

may start and assure minimum project completion time. 
TJ (N) The latest time that a job whose head is N may finish 

and assure minimum project completion time. 
ES Earliest start time. Same as TI (H) 

SF Earliest finish time. 

LS latest Start tine. 

IF Latest finish time. Same as TJ (N) 

TF Total float time. The length of time that the 

start of a job may be delayed without changing the 

minimum project completion time. 
FF Free float time. The length of time that the start 

of a job may be delayed without changing ES for 

another job. 

Minimum project completion time. 
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The following steps are followed to calculate a time table for the 
project diagramed in Figure 2. 

(1) Place the planning results in a table like Table 1 A. 

(2) Set up a row in Table 2 for each node in the diagram. 

(3) Ccapute the TI (N) value in Table 2 by first setting 
TI (FIRST NODE) = and then generating possible values 
of TI (j) = TI (I) + D (I, J). The largest such value 
of TI (J) is the correct value for a given node. 

ex. TI (1) = 

? 

TI (2) m TI (1) + D (1,2) =0+3 =©= TI (2) 
? 

TI (3) - TI (1) + D (1,3) = + 9 = TI (3) 
? 

TI (3) - TI (2) + D (2,3) - 3 + 4 - 7 
? 

TI (5) * TI (2) + D (2,5) = 3 + 7 - 10 

TI (k) = TI (3) + D (3,4) = 9+5 =©« TI (k) 
? 

TI (5) = TI (4) + D (4,5) - lh + 6 «(§>« TI (5) 

(4) The TI value for the end node will be the minium completion 
tiae far the project. 

ex. >. -= TI (BSD) - TI (5) = 20 

(5) Compute TJ (H) values by setting TJ {BSD) = ^ and 
generating possible values of TJ (I) «= TJ (J) - (I, J). 
The smallest such value of TJ (i) is the correct value for 
a given node. 

ex. TJ (HID) - > - TJ (5) « 20 

TJ (4) = TJ (5) - D (4,5) = 20 - 6 « 14, etc. 

(6) ¥ith Table 2 complete, Table 1 B can be constructed by 
use of the following relationships. 

ex. For Job (1,2) 

ES - TI (l) ■ TI (l) « 

EP = ES + D (I, J) =0 + 3 = 3 
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IF = TJ (J) = TJ (2) = 5 

LS = If - D (I,J) =5-3=2 

TF=LS-2S=2-0=2 

FF = TI (J) - EF = TI (2) - 3F = 3-3 = 
The longest chain of jobs through a project is termed the "critical 
path." The jobs along this path have zero total float times and are 
Barked by an asterisk in Table 1 B. Any delay in the starting or 
completion of these jobs will delay completion of the project by a 
like amount of time. On the other hand some of the jobs are floaters 
and may be delayed a limited amount without effecting the project 
completion date. 
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The indexing character (column 27) is not used with the 141. 

If the instruction requires a B-operand, its address is written in 
columns 28 through 37 in the same form as the A-operand. 

When an instruction requires a d-character, the actual machine code 
is placed in column 39. 



COMMENTS 



Short comments may be placed in columns 40 through 55 of the instruc- 
tion cards. Longer comments may be placed on "Comment Cards". These 
cards are identified by an asterisk in column 8. The remainder of 
the card, columns 9 through 55, is available for the comment. 



A sample coding sheet is shown on the next page. 
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DECLARATIVES 



Define Constant With Word Mark DCW 

The symbolic operation code DCW causes a constant to be loaded 
into storage and sets a word mark in the high-order (left most) 
position of the constant field. The number of characters in 
the constant field is specified in the Count portion of the 
coding sheet, (columns 6 and 7)» The symbolic label by which 
the constant is referenced is placed in the Label area (columns 
8 through 13). The code DCW is placed in columns 14 through 16. 
Column 17 must contain an asterisk to indicate to the assembler 
that it may choose the location of the constant field or else 
columns 17 through 20 must contain the desired storage location 
of the low order position (right most) of the constant field. 
The constant itself begins in column 24 and may extend through 
column 55 giving a nuMrfimya of 32 characters. If the constant 
is to be a signed number, the sign may be placed in column 23. 



Define Constant ; DC 

The symbolic operation code DC causes a constant to be loaded 
into storage without a word mark. Otherwise, it is identical 
to the DCW. 



Define Symbol DS 

The operation code DS causes the processor to assign equivalent 
addresses to labels or to assign storage for work areas. The 
DS differs from DC and DCW statements in that neither data nor 
word marks are loaded during assembly. The number of positions 
to be reserved in storage is specified in the Count portion of 
the coding sheet. If it is desired to refer symbolically to 
the low order position of the field reserved, then a label must 
be placed in the Label field. If the assembler is to assign 
the address, an asterisk must be placed in column 17 of the 
coding sheet. If it is desired to equate the label to an actual 
address, then that address is written beginning in column 17 
and the Count field of the coding sheet is left blank. It is 
not possible to character adjust DS statements. 



Define Symbolic Address DSA 

The DSA statement causes a three character machine language 
address which the assembler has assigned to a label to be stored 
as a constant when the program is loaded. 
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The number of characters need not be specified in the Count 
portion of the coding sheet since it is automatically assigned 
three storage positions by the processor. If it is desired to 
refer to the address of the address field, a symbol may be 
written in the Label portion of the coding sheet. Column 17 
may contain an asterisk thus allowing the assembler to assign 
the storage positions or else columns 17 through 20 may contain 
the desired storage locations of the low order position for the 
address field. The symbol whose equivalent address is to be 
the address field is written beginning in column 28 of the 
B-operand. 



CONTROL STATEMENTS 



Origin ORG 

The ORG statement causes the assembler to assign addresses to 
the following instructions beginning at the location specified 
by the statement. The symbolic operation code ORG must be 
placed in the operation field and the absolute address at which 
storage assignment is to be made must be written in columns 17 
through 20 of the coding sheet. 



Execute " EX 

The EX statement causes the computer to suspend loading of the 
object program and execute part of the program prior to con- 
tinuing the loading process. The symbolic operation code EX 
must be placed in the operation field and the symbolic or actual 
address of the first instruction to be executed when the loading 
process is suspended must be placed in the A-operand portion of 
the coding sheet. The card containing the Execute statement 
must be inserted at the point in the source program where sus- 
pension of loading ia desired in order to execute the preceeding 
portion. 



End END 

The END statement is an indication to the assembler that the 
last card of the source program has been processed. The symbolic 
operation code END must be placed in the operation field and 
the address of the first instruction, either actual or symbolic, 
must be placed in the A-operand portion of the coding sheet. 
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SECTION 3 



EXERCISES 



Exercise 1 

Write a program that will reproduce a card, that is, will read 
a card and punch a card identical to the one read. 

Exercise 2 

Write a program that will read a card and punch a card with the 
information from columns 1 - 40 of the card read in columns 41 -80 
of the card punched and the information from columns 41 - 80 of 
the card read in columns 1 - 40 of the card punched. 

Exercise 3 

Write a program that will reproduce an entire deck of cards. 
Exercise 4 

Write a program that will read one card and will punch copy after 
copy of it until the machine is stopped by the operator. 

Exercise 5 

Write a program that will print a directory of telephone ex- 
tensions from a deck of personnel cards. The cards and directory 
forms are as follows: 

Card Columns Field Print Positions 



1 - 


18 


Name 


1 


19 




First Initial 


20 


20 




Second Initial 


22 


21 - 


60 


Not used in this program 




61 - 


64 


Telephone Extension 


28 


65 - 


80 


Not used in this program 





Exercise 6 

Write a program that will read cards containing numeric fields 
A, B, and C and will punch corresponding cards that contain 
fields A, B, C, and D, where D = A + B - C. The card columns 
are shown on the next page. 



Field Card Columns Card 



A 1-6 Input and Output 

B 7-11 Input and Output 

C 12-14 Input and Output 

D 75-80 Output Only 



Assume that no overflows will occur. 
Exercise 7 

Write a program that will check the sequence of employee numbers 
found in columns 75-80 of a deck of cards. The program should 
stop the machine if it finds any employee number that is not 
larger than the one in the previous card. 



Exercise 8 



Write a program that will punch consecutive numbers 001 through 

015 in columns 78 - 80 of the first 15 blank cards in the punch hopper 

and stop automatically before punching a sixteenth card. 



Exercise 9 



Write a program that will calculate and punch D, where D = 
A+ B - C (all values are positive). Provide for decimal align- 
ment, rounding (half -adjustment), and over flow. The card 
columns and decimal form of each field is as follows: 



Input Card 


A 


Col. 5 


- 8 


XXX.X 




B 


9 


- 12 


XX .XX 




C 


13 


- 14 


XX. 


Output Card 


D 


7 


- 10 


xxxx. 



Exercise 10 



Write a program that will up-date a customer's charge account 
after a new purchase has been recorded. A new balance card is 
to be punched and a listing of each customer's name, new balance, 
and limit is to be printed. If the new balance exceeds the 
customer's limit the words OVER LIMIT are also to be printed on 
his entry. The card columns and print positions are as follows; 

Filed Input Card Output Card Listing 



Name 


1 - 


20 


1 - 


20 


11 


- 30 


Balance 


21 - 


30 


21 - 


30 


35 


- 44 


Charge 


31 - 


40 










Limit 


71 - 


80 


71 - 


80 


49 


- 58 



'OVER LBjIT' 63-72 



The Limit field is to be punched with leading zeros. 
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Exercise 8 



Exercise 9 
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SOLUTIONS TO EXERCISES 



EXERCISE 1 



PG LIN 



010 
020 
030 
040 
050 
060 
070 



LABEL 
START 



OP A-OPERAND B-OPERAND COMMENTS 



SW 0001 
R 

MCW 0080 

P 

H 

NOP 

END START 



0180 



DEFINE 80 POS FL 
READ ONE CARD 
MOVE TO PCH 
PUNCH ONE CARD 
HALT 

PROVIDE WM 



EXERCISE 2 



02 010 
02 020 
02 030 
02 040 
02 050 
02 060 
02 070 
02 080 
02 09Q 



START 



0001 
0041 



SW 
SW 
R 

MCW 0040 
MCW 0080 
P 
H 

NOP 

END START 



0180 
0140 



DEFINE FIRST FLD 
DEFINE SECOND FL 
READ ONE CARD 
MOVE TO PCH AREA 
MOVE TO PCH AREA 
PUNCH A CARD 
HALT 

PROVIDE WM 



EXERCISE 3 



03 010 
03 020 
03 030 
03 040 
03 050 
03 060 



START 
READ 



SW 0001 
R 

MCW 0080 
P 

B READ 
END START 



0180 



DEFINE FIELD 
READ A CARD 
MOVE TO PCH AREA 
PUNCH A CARD 
BRANCH TO READ 
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COMMENTS 


ut 


n i n 

U 1 u 


CT ADT 


CI*/ 


0001 






nCFIMF FIFin 
UCrllNC r 1 lLU 


04 


020 




R 








READ CARD 


nL 


nan 
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0080 
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u 1 ou 
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nLn 
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PUNCH 






RFPFAT PUNCH 


nL 


nAn 

UDU 




tNU 


START 
















EXERCISE 


5 






05 


01 


START 


SW 


0001 






utr 1 inc. r 1 LLUo 


05 


020 




SW 


0019 








05 


030 




SW 


0020 








05 


040 




SW 


0061 








05 


050 


READ 


R 








READ CARD 


05 


060 




MCW 


0018 




0218 


ASSEMBLE LINE 


05 


070 




MCW 


0019 




0220 




05 


080 




MCW 


0020 




0222 




05 


090 




MCW 


0064 




U/3 1 




05 


1 00 




W 








DD 1 MT A t IMF 
rK INI A L l IN C 


05 


1 10 




B 


READ 






nrTiinki in DFAH 
Kt 1 UKM I U Kt AU 


05 


1 20 




END 


START 
















EXERCISE 


6 






Ob 


010 


START 


SW 


0001 






nFF 1 WF F 1 Fl 


UO 


n9n 

UZU 




cw 
oW 


0007 








06 


030 




SW 


0012 








06 


040 


READ 


R 








READ CARD 


06 


050 




MCW 


0006 




0106 


MOVE INPUT TO 


06 


060 




MCW 


0011 




01 1 1 


PUNCH AREA 


06 


070 




MCW 


0014 




0114 




06 


080 




S 


0014 




0006 


A-C 


06 


090 




A 


001 1 




0006 


A+B-C 


06 


100 




MCW 


0006 




0180 


MOVE D TO PCH AR 


06 


110 




P 








PUNCH CARD 


06 


120 




B 


READ 






LOOP 


06 


130 




END 


START 









EXERCISE 7 



PG 


LIN 


LABEL 


OP 


A-OPERAND 


B-OPERAND 


COMMENTS 


07 


010 


BEGIN 


SW 


0075 




DEFINE EMPNO FLD 


07 


020 


READ 


R 






READ CARD 


07 


030 




C 


STORE 


0080 


COMP WITH LST CD 


07 


OifO 




B 


LOOP 




ULOOP IF OK 


07 


050 




H 






HALT 


07 


060 


LOOP 


MCW 


0080 


STORE 




07 


070 
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EXERCISE 10 
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SECTION 4 



SUBROUTINES 



The following subroutines written in 14-1 language were contributed by 
Mr. Wilson T. Price of Merritt College, Oakland, California. In pre- 
paring these routines, simplicity of arithmetic method, compatability 
with the 1401, and compatability with each other were primary con- 
siderations. Speed of operation was deemed the least important feature 
since students write 141 programs as learming experience and not for 
production runs. 



THE MULTIPLY SUBROUTINE 



TITLE: Multiply 
MNEMONIC: MULT 

PURPOSE: To provide the capability of multiplying a number containing 
up to 8 digits by a second number containing up to 8 digits to 
form a product up to 16 digits in length. 

STORAGE REQUIREMENTS: 

Multiplicand (MULTD) 081 through 089 

Multiplier (MULTR) 091 through 099 

Product (PROD) 181 through 196 

Additional work areas 197 through 200 

Program 100 additional locations 

as assigned by assembler 

LINKAGE: Move the multiplicand of m digits to MULTD. This field will 
then occupy storage positions (090 - m) through 089. Move the 
multiplier of n digits to MULTR. This field will then occupy 
storage positions (100 - n) through 099. Move the return Branch 
instruction to MULTX + 3. Branch to MULT. The linkage is illus- 
trated below: 

MCW (Multiplicand) MULTD 
MOT (Multiplier) MULTR 
MCW RETURN - 1 MULTX +3 

8 MULT 
B RETURN 

RETURN (next instruction in program) 
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After completion of the operation, the product of in + n digits 
will be in PROD. Both the multiplicand and multiplier remain in 
their respective areas. 

WORD MARKS: Word marks are placed in locations 081, 091, and 181 with 
DCW' s during assembly and care must be exercised that they are net 
cleared during execution of the main program. 

CLEARING: Initially all three work areas will be zero, further clear- 
ing is left to the programmer. Blanking or zeroing of the mul- 
tiplicand and multiplier areas will only be necessary if the new 
values contain fewer digits than the previous Quantities which 
utilized these areas. Zeroing of the product accumulator will 
always be necessary unless it is desired to sum products. 

SCALING: Decimal alignment is the responsibility of the programmer. 

The number of decimal places in the product is equal to the sum 
of the number of decimal places in the multiplicand and the mul- 
tiplier. 
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MULTIPLY SUBROUTINE 
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THE DIVIDE SUBROUTINE 



TITLE: Divide 
MNEMONIC: DIV 



PURPOSE: To provide the capability of dividing a number containing up 
to 16 digits by a second number containing up to 8 digits to form 
a quotient of up to 8 digits. 

STORAGE REQUIREMENTS: 



Dividend (DIVD) 181 through 196 

Divisor (DIVR) 081 through 089 

Quotient (QUOT) 091 through 099 

Program 15U additional locations 

as assigned by assembler 

LINKAGE: Move the dividend of m digits to DIVD. This field will then 
occupy storage positions (197 - m) through 196. Move the divisor 
of n digits to DIVR. This field will then occupy storage positions 
(090 - n) through 089. Move the return Branch instruction to 
DIVX + 3. Branch to DIV. 



MCW (Dividend) DIVD 
MCW (Divisor) DIVR 
KCW RETURN - 1 DIVX + 3 
B DIV 
B RETURN 
RETURN (next instruction in program) 



After completion of the operation, the quotient will be located at 
QUOT and the remainder at DIVD. The divisor remains in DIVR but 
the dividend is lost. 

WORD MARKS: Word marks are placed in locations 081, 091, and 181 with 
DCW's during assembly and care must be taken that they are not 
cleared during execution of the main program. 

CLEARING: Initially all three work areas will contain zeroes, further 
clearing is left to the programmer. Zeroing of the dividend and 
divisor areas will be necessary if new values contain fewer digits 
then previous quantities which utilized these areas. The high order 
position (081) of the divisor must contain zero . Zeroing of the 
quotient accumulator will always be necessary unless it is desired 
to sum quotients. 

SCALING: Decimal alignment is the responsibilty of the programmer. The 
rules to follow arerlisted on the next page. 
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1. Multiply dividend and divisor by the appropriate power of 
ten to clear decimals from divisor. 

2. Muliply dividend and expected quotient by the same power 
of ten to obtain greater accuracy. 

3. Upper eight digits (181 through 188) of dividend must be 
less than divisor. 

The following examples illustrate scaling in the divide subroutine: 

-3j_ = m 

1.2 12 

Location of low 



Number order position 



1. Before division 380 DIVD 

12 DIVR 

After division 31 QUOT 

8 (remainder) DIVD 

2. Before division 380^0 DIVD 

12 DIVR 

After division 3^6 QUOT 

A 8 (remainder) DIVD 

3. Before division 380 A 00 DIVD 

12 DIVR 

After division 31*66 QUOT 

A 08 (remainder) DIVD 
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THE SUPPRESS ZERO SUBROUTINE 



TITLE: Suppress Zero 
MNEMONIC: SUPZR 

PURFOSE: Given a numeric field of 9 digits or fewer, to suppress leading 
zeroes (that is change high order zeroes to blanks). 

STORAGE REQUIREMENTS: 

Work area (SZARG) 091 through 099 

Program 82 additional locations 

as assigned by assembler 

LINKAGE: Move the numeric field of m digits to SZARG. The field will 
then occupy storage positions (100 - m) through 099. For example, 
a three digit field would occupy positions 097 through 099. Move 
the return Branch instruction to SUPZRX + 3. Branch to SUPZR. 

MCW (Argument) SZARG 
MCW RETURN - 1 oUPZRX + 3 
B SUPZR 
B RETURN 

RETURN (next instruction in program) 

After completion of the operation, the field with leading zeroes 
suppressed will remain in its original location. If the entire 
field is zero, then one zero will remain. 



WORD MARKS: A word mark is set at location 091 during processing by the 
assembler. If cleared during execution of the main program it 
should be reset. 

CLEARING: Initially the work area will be zero, further clearing is 

left to the programmer. Zeroing will always be necessary if the 
new field contains fewer digits than the previous quantity which 
utilized this area. 



SUPPRESS ZERO SUEROUTINE 
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THE EDIT SUBROUTINE 



TITLE: Edit 
MNEMONIC: EDIT 

PURPOSE: To provide the capability to edit a field of up to 8 digits 
consisting of dollars and cents. Leading zeroes are suppressed 
and a decimal point, a comma (if needed) and a floating dollar 
sign are placed in appropriate positions of the field. 

STORAGE RjDQUIREMENTS: 

Input field (EDIN) 081 through 089 

Output field (EDOUT) 181 through 191 

Program 127 additional locations 

as assigned by assembler 

LINKAGE: Move the field of m digits to be edited to EDIN- This field 

will then occupy positions (090 - m) through 089. Move the return 
Branch instruction to EDITX + 3. Branch to EDIT. 

MCW (Argument) EDIN 
MCW RETURN - 1 EDITX + 3 
B EDIT 
B RETURN 

RETURN (next instruction in program) 

After completion of the operation, the edited field will be located 
at EDOUT. The original field remains in EDIN. 

WROD MARKS: Word marks are placed in locations 081 and 191 with DCW's 
during assembly and care must be taken that they are not cleared 
during execution of the main program. 

CLEARING: Initially both work areas will be zero, further clearing is 
left up to the programmer. Zeroing of the input area (EDIN) will 
be necessary if the new argument contains fewer digits than pre- 
vious quantities which utilized this area. The output area (EDOUT) 
is self clearing. 

SCALING: Quantities which are edited must consist of a dollar and cent 
amount. The following examples illustrate scaling in the edit 
subroutines 

Input field Output field 

12345678 $123,456.78 
12345 $123.45 
123 $1.23 

12 m.12 
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EDIT SUBROUTINE 
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SECTION 5 



OPERATING PROCEDURES 



Four versions of the 141 SPS Assembler and the 141 Simulator are 
available in order to permit maximum utilization of the computer 
hardware. These are identified as: 

Non-Monitor Versions 

Version A - Basic 1620 

Version B - 1620 with 1443 Printer 

Monitor Versions 

Version C - 1620 with 1311 Disk Storage Drive and indirect 
addressing 

Version D - 1620 with 1443 Printer, 1311 Disk Storage Drive, 
and indirect addressing 

Letters preceeding each procedure statement below identify the versions 
to which they apply. 



141 SPS ASSEMBLER 



Prepare Console 
Version 

AC 1) Set left typewriter margin at 10 and right margin 

at 95. 

A B C D 2) Set Parity Switch and I/O Switch to STOP . 
A B C D 3) Set O'Flow Switch to PROGRAM. 

CD 4) Set Disk Switch to PROGRAM. 
A B C D 5) Set Program Switches 1 and 2 according to the 
options listed below. 
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Assemble SPS Programs 



Version 

A B l) Place the 141 SPS Assembler deck in the reader 

hopper in the 9-edge face-down position, 
CD 2) Place the following Monitor cards in the reader 

hopper: "COLD START", * * JOB, and * * XBQ 1413PS. 
A B C D 3) Place SPS source program decks in the reader hopper. 

Any number of programs may be stacked for assembly. 

The last card of each deck must be an END statement. 
A B C D 4) With the machine in MANUKA mode, press the LOAD key 

on the 1622 Reader-Punch unit. 



Program Switch Options 
Version 

A B C D l) Switch 1 and 2 off - Object deck will be punched 
and program will be listed. 

A B C D 2) Switch 1 off and Switch 2 on - Object deck will be 
punched but program listing will be suppressed ex- 
sept for incorrect statements. A program listing 
can be prepared from the object program cards on an 
IBM 407 Accounting Machine. This option will 
greatly reduce assembly time for versions A and C. 

A B C D 3) Switch 1 on and Switch 2 off - Object deck will be 
suppressed and program will be listed on the con- 
sole typewriter (or printer). 

A B C D 4) Switch 1 and 2 on - Object deck and program listing 
will be suppressed. This combination can be used 
as an edit run. Programs from an entire class can 
quickly be scanned for errors with on]y incorrect 
statements being listed. The particular op-code or 
address that is erroneous will appear as the sym- 
bol =. For easy recognition, be sure that the 
source cards are numbered in columns 1 through 5 
and that the IDENTIFICATION field, columns 76 
through 80, is punched. 



Long Programs 
Version 

A B l) An SPS assembly is a two pass operation but the 141 

SPS assembler only requires that the cards be fed 
through once if the number of cards in the source 
program does not exceed 100. This reduces the 
amount of card handling and permits the stacking of 
of programs. If the number of cards in a source 
program is greater than 100, images of the first 
100 cards are held in storage and copies of the re- 
maining cards are punched for a second pass. These 
cards are removed from the PUNCH stacker and placed 
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in the READ hopper at the end of PASS I. Only 
those statements in excess of 100 need be pro- 
cessed twice. 

CD 2) Images of the source cards are stored on the disk 
and therefore the length of the program does not 
effect the operating procedures. 



141 SIMULATOR 



Prepare Console 



Version 



A 

A B 

A B 

A B 



1) Set left margin at 10 and right margin at 95. 

2) Set Parity Switch to STOP. 

3) Set O'Flow Switch to PROGRAM. 

4) Set Disk Switch to PROGRAM. 

5) Set Program Switches 1,2,3, and 4 according to the 
options listed at the end of this section. 



Load Simualtor 



Version 

A B 

C D 
A B C D 



1) Place 141 Simulator deck in the reader hopper in 
the 9— edge face-down position. 

2) Place the following Monitor cards in the reader 
hopper: "COLD START" , * * JOB, and * + XEQ 141SIM 

3) With the machine in MANUAL mode, press the LOAD 
key on the 1622 Reader-Punch unit. When the Sim- 
ulator is loaded the typewriter will automatically 
begin typing a list of the functions that the sim- 
ulator will perform and the request words that will 
initiate these functions. 



Functions Performed 

Load Program From Card Reader 
Clear 141 Storage 
Alter Storage From Typewriter 
Dump Contents of 141 Storage 
Begin Execution of Program 
Return to 1620 Monitor 



Request by Typing 

LOAD 
CLEAR 
ALTER 
DUMP 
EXECUTE 

EXIT (C & D only) 
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Select the Desired Function 

Each function, except EXIT, is available in all versions. 

a) The typewriter will type the words REQUESTED FUNCTION IS and 
then stop. 

b) The operator then types the word LOAD, CLEAR, ALTER, DUMP , 
EXECUTE or EXIT and presses the RELEASE and START keys on the 
console or the RS key on the typewriter. 

c) If a function runs to completion the simulator will automatic- 
ally request the next function. If the function is inter- 
rupted by turning on Program Switch 1, the operator may re- 
turn to the request statement by pressing, in order, the 
RESET, INSERT, RELEASE, and ST„RT keys on the console. 

The LOAD Function 

Programs that have been assembled by SIS can be loaded with this 
function. 

a) Place the SPS object deck, including the two clear storage 
cards and the bootstrap card, in the hopper. 

b) Type the reouest word LOAD and press the RELEASE and START keys. 

c) Press READER START, if necessary. 

The CLEaR Function 

The 141 storage can be cleared (set to blanks) with this function. 

a) Type the request word CLEAR and press the RELEaoE and STaRT keys. 

b) When the clearing operation is completed the typewriter will 
request the next function. 

The ALTER Function 

Instructions and data, including word marks, in the 141 storage 
can be altered with this function. This may be used for debugging a 
program or entering complete small demonstration programs directly in 
machine language. 

a) Type the request word ALTER and press the RELEASE and START keys. 

b) The typewriter will type BEGINNING AT. 

c) Type the three digit 141 location at which the alteration is 
desired and press the RELEASE and START keys. 

d) The typewriter will repeat this location to verify it. 

e) Type the instructions and data in machine language, disregarding 
word marks. This is the only instance where the operator will 
have to use the typewriter shift key. For all other entries 
the typewriter will automatically be in the proper alphabetic 

or numeric shift. At any convenient place, at least one char- 
acter before the end of the line, cease typing and press the 
RELEASE and START keys. 
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f ) The typewriter carriage will return for a second line. This 
line will indicate the presence or absence of word marks. If 
the character above requires a word mark type a 1, if it does 
not, strike the space bar. Continue to type l's and spaces 
until the carriage has moved across the entire line above. In 
the first position after completion of the word mark line, type 
a record mark, and then press the RELEASE and STaRT keys. 

g) The typewriter will now type the address of the next storage 
location that will be altered if steps c) and f) are repeated. 

h) When altering is completed press, in order, the RESET, INSERT, 
RELEASE, and START keys. The EXECUTE function can be used to 
start the program. 

The DUMP Function 

When a 141 program is stopped either by a programmed halt or by an 
error condition, it is desirable to be able to "DUlii " the Instruction 
Register (I- REG), the Operation Register (CP-REG) and the storage. The 
DUMP function will list the contents of the I- REG, which will be the 
address of the next character to be accessed, the contents of the OF-REG, 
which is the operation code of the last instruction to be executed, and 
the contents of the 141 storage as it stood when the program stopped. 

a) Type the request word DUMP and press the RELEASE and STaRT keys. 

b) When the entire storage is dumped the typewriter will request 
the next function. 



The EXECUTE Function 

Execution of 141 programs can be started with this function. 

a) Type the request word EXECUTE and press the RELEASE and START 
keys . 

b) The typewriter will type BEGINNING AT. 

c) Type the three-digit 141 location of the first instruction 
to be executed and press the RELEASE and START keys. 

The EXIT Function 

In versions C and D this function returns control to the 1620 
Monitor. 

a) Type the request word EXIT. 

b) Press the RELEASE and START keys. 

Program Switch Options 

a) Program Switch 1 - Turning Program Switch 1 on will cause the 
program to halt at the end of the execution of the current 141 
instruction. The operator may either press STaRT to continue 
with the next 141 instruction or he may press RESET, INSERT, 
RELEASE and START to request a new function. 
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b) Program Switch 2 - When Program Switch 2 is off the DUMP function 
will use the typewriter or printer. When it is on the DUiJP function 
will use the card punch. These cards can be listed on an IBM 

407 Accounting Machine. 

c) Program Switch 3 - Cards punched by the DUMP function can be 
reloaded with the LOAD function with Program Switch 3 on. With 
Program Switch 3 off SPS self-loading cards can be loaded. 

d) Program Switch 4 - If Program Switch 4 is on at the time the 
simulator is loaded the typing of the list of functions will 
be omitted. 



Special Notes 

a) Restarting Programs - 141 programs can be stopped, dumped, 
and later restarted by the following procedure: 

1) Stop the program by turning Program Switch 1 on. 

2) Dump the program on cards using the DUMT function with 
Program Switch 2 on. 

3) Later re-load the program using the LOAD function with 
Program Switch 3 on. 

b) Console Lights - When a 141 program is stopped by a program 
halt, an error halt, or by turning on Program Switch 1, the 
operation code of the instruction just completed can be deter- 
mined from the DIGIT AND BRANCH lights on the console. The_ 
1620 display can be converted to a 141 operation code by using 
the following table; 



DIGIT 






AND 


141 


SPS 


BRANCH 


OP-CODE 


OP-CODE 


o3 


H or ) 


H 


04 


CW 


21 


" Z " 


CS 


23 


} 


SW 


41 


I 


A 


42 


B 


B 


43 


C 


C 



DIGIT 

AND 141 SPS 

BRANCH OP-CODE OP-CODE 



53 L LCA 

54 M MCW 

55 N NOP 
62 S S 

71 1 R 

72 2 W 

74 k P 



The address of the next instruction to be executed can be 
determined by pressing the DISPLAY MAR key with the MEMORY 
ADDRESS REGISTER SELECTOR rotated to the OR-2 position. The 
141 address of the next instruction will be displayed by the 
lights of the MEMORY ADDRESS REGISTER. 
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Loading Machine Language Programs - Machine language programs 
can be loaded either by typing them under the control of the 
ALTER function or by key punching them in the Card Dump format 
and loading them using the LOAD function with Program Switch 3 
on. 



Card Dump Format - Cards in this format must be sequentially 
numbered with the odd numbered cards containing the program and 
data characters and the even numbered cards containing the word 
marks . 



COLUMNS ODD 

L - 2 Card Number 

4-6 Blank 

9-11 Load address 

20 - 69 Program or Data 



EVEN 
Card Number 

Blank except for last card 
Blank 

l's for word marks 



In an odd numbered card, up to fifty characters to be loaded 
are punched starting in column 20. In columns 9 through 11 is 
punched the address of the location in storage where the char- 
acter in column 20 is to be stored. In columns 20 through 69 
of an even numbered card are punched l's for the word marks 
associated with the characters in columns 20 through 69 of the 
previous card. In columns 4 through 6 of the last card (even 
numbered) is punched the address at which execution is to be- 
gin. 



Monitor END OF JOB cards - In versions C and D, + * * * 
END OF JOB cards may be used to facilitate continuous operation. 
In an SPS Assembly, if the last source program deck is followed 
by an END OF JOB card control is automatically returned to the 
1620 Monitor and the next program, such as the 141 Simulator, 
can be called into storage for execution. 

During the execution of a 141 program using the 141 Simulator, 
an END OF JOB card following the data cards will automatically 
cause a return to request a new function. This may be any 141 
Simulator function, including the EXIT function which will return 
control to the 1620 Monitor. 



1443 Carriage Control - In versions B and D, no provisions are 
made for control of the 1443 printer carriage except for an 
automatic detection of a channel 12 punch which will skip the 
paper form to the channel 1 position. 
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00010* - 141 - ASSEMBLER 

00020* FOR BASIC 1620 

00030* 

00040* INITIALIZATION AND STORE PROGRAM ROUTINE 

00050* 



00060 


ASMBLY 


TFM 


CDCNT,0 


00070 




TF 


11 ,1 NI T+ll 


00080 




BLC 


* + 12 


00090 




TFM 


ERRCNT ,0 


00 100 




TFM 


MOD+30 , STORE 


00 1 10 




TFM 


I CTR ,0333, 8 


00 120 




TFM 


MA DDR +6 , LABEL-15 


00 1 30 




TFM 


MLABEL+6,LABEL-18 


00 140 




TDM 


OVERSW f 


001 50 




CF 


I DENT-1 


00 160 


LC 


r\ I /**• 

BLC 


NOEND 


00 170 




RACD 


LAR EA 


00 1 80 




AM 


CDCNT, 1 t 10 


00190 




C 


END+4, LAREA + 30 


00200 




BE 


MOD 


002 10 




C 


AST t L ARE A+ 1 4 


00220 




BE 


MOD 


00230 




C 


CCTL, LAREA+30 


00240 




BE 


MOD 


00250 




C 


CEX , LAREA+30 


00260 




BE 


MOD 


00270 




C 


CDCW-2, LAREA + 28 


00280 




BE 


DCDSR 


00290 




C 


CDSA-2, LAREA+28 


00300 




BE 


DCDSR 


003 10 




C 


CORG, LAREA+30 


00320 




BE 


ORGR 


00330 




C 


CB f LAREA+30 


00340 




BNE 


*+60 


003 50 




C 


BLANK, LAREA+64 


00360 




BE 


* + 36 


00370 




TFM 


CNT, 8, 9 


00380 




B 


REPL 


00390 




TFM 


CNT,0 ,9 


00400 




BD 


I NCR , LAREA + 75 


004 10 




BD 


I NCR t LAREA+76 


00420 




B 


*+24 


00430 


I NCR 


AM 


CNT » 1 , 10 


00440 




C 


BLANK, LAREA+64 


00450 




BNE 


*+60 


00460 




C 


BLANK, LAREA+42 


00470 




BNE 


*+60 


00480 




AM 


CNT,1, 10 


00490 




B 


REPL 


00500 




AM 


CNT, 7, 10 


005 10 




B 


REPL 


00520 




AM 


CNT, 4, 10 


00530 


REPL 


TD 


LAR EA+12 ,CNT 


00540 




TDM 


LAREA+11,7 


00550 




TD 


LAREA+10,CNT-1 


00560 




C 


BLANK, LAREA+24 



00570 




BE 


REPLI M 


00580 




TF 


LOC»I CTR 


00590 




BTM 


LTABLE 


00600 


REPLI M 


A 


ICTR,CNT 


006 10 




BD 


MOD, OVERSW 


00620 




BD 


OVERR f I CTR-3 


00630 


MOD 


CM 


CDCNT, 100 


00640 




BH 


#+48 


00650 




TF 


Of LAREA+108 


00660 




AM 


*-6t 110 ,9 


00670 




B 


*+24 


00680 




WACD 


LAREA 


00690 




C 


END+4 f LAREA + 30 


00700 




BE 


PASS2 


007 10 




B 


LC 


00720 




DC 


5>0 


00730 


LTABLE 


AM 


MLABEL+6* 15» 10 


00 740 




AM 


MADDR+6, 15,10 


00750 




CM 


MADDR+6, LABEL + 15* 90 


00 760 




BNL 


LBLERR 


00770 




SF 


LAR EA + 13 


00 7 SO 


ML ABEL 


TF 


t LAR E A+^4 


00790 




SF 


LOC-2 


00800 


MA DOR 


TF 


0,LOC 


008 10 




CF 


LAR EA + 13 


00820 




BB 




00830 


LBLERR 


RCTY 




00840 




WATY 


LBLMSG 


00850 




B 


0V6RR+36 


00860 


LBLMSG 


DAC 


18, LABEL TABLE FULL.5), 


00870 


ORGR 


TD 


I CTR , LAREA+38 


00880 




TD 


I CTR-1 , LAREA+36 


00890 




TD 


I CTR-2, LAREA+34 


00 900 




B 


MOD 


009 .10 


DCDSR 


TD 


CNT, LAREA+12 


00920 




TD 


CNT-lt LAREA+10 


00930 




C 


CDSA t LAREA + 30 


00940 




BNE 


#+48 


009 50 




TF 


CNT , C3 


00960 




TFM 


LAREA+12, 0073, 8 


00970 




CF 


LAREA+9 


00980 




C 


AST, LAREA + 32 


00990 




BNE 


ABS LT 


1 000 




A 


I CTR, CNT 


010 10 




C 


BLANK , LAREA+24 


01020 




BE 


REPLI M+12 


1 3 




T F 


LOC , I CTR 


1 040 




SM 


LOC, 1 , 10 


1050 




BTM 


LTABLE 


1060 




B 


REPLI M+12 


1070 


AB SLT 


TD 


LOC , LAREA+38 


1080 




TD 


LOC-1 , LAREA+36 


01090 




TD 


LOC-2 » LAREA + 34 


01100 




BTM 


LTABLE 


Oil 10 




B 


MOD 


01120 


NOEND 


RCTY 





COMPUTER 
TECHNOLOGY 



1130 
1140 
1150 
1160 

1170 OVERR 

1180 

1190 

1200 

1210 

1220 

1230 

1240 L ARE A 
1250 

1260 LDIN 
1270 I DENT 
1280 ADDRAR 
1290 ICTR 
1300 BLANK 
1310 LOC 
1320 CNT 
1330 LABEL 
1340 CDCNT 
1350 

1360 ERRCNT 
1370 

1380 STORE 
1390 END 
1400 ENDMSG 
1410 OVMSG 
1420* 

1430* PASS2 
1440* 

1450 PASS2 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 PCS 



WATY ENDMSG 
RCTY 
H 
B 

TDM 
RCTY 
WATY 
RCTY 
WATY 
RCTY 
B 

DAC 
DS 
DAC 
DAC 
DC 



DC 

DC 

DC 

DC 

DSB 

DC 

DC 

DC 

DC 

DSB 

DAC 

DAC 

DAC 



BD 

TFM 

CM 

BNH 

RCTY 

WATY 

RCTY 

H 

TFM 

TFM 

SF 

TF 

TF 

TF 

BC2 

RCTY 

WATY 

RCTY 

WATY 

RCTY 

WATY 

RCTY 

RCTY 

BC1 



LC + 12 
OVERSW, 1 

OVMSG 

LAREA 

MOD 
50, 
10 

20, L 1056 , 

7, a, 
5, a, 

4,0 

12,0 

4,0 

3,0 

15,90 

5,0 

i,a 

5,0 
1,3 

110,100,9109 
3, END, 

48, END CARD MISSING. LOAD END CARD AND PUSH START. a, 
22, PROGRAM EXCEEDS CORE. a, 



ASMBLY ,OVERSW 
ICTR, 0332, 8 
CDCNT, 100 
*+60 

P2MSG 



CDCNT, 

PULIM+11, STORE 

LAREA+149 

CSl + 158,IDENT+8 

CS2+158,IDENT+8 

BS+158,IDENT+8 

PCS 

CS1 

CS2 

BS 



L00P2 



01690 




WACD 


1700 




WACD 


017 10 




WACD 


01720 


L00P2 


CM 


01730 




BL 


1740 




RACD 


01750 




TF 


1760 




B 


01770 


PUL I t f - 


T F 


1780 




TF 


01790 




AM 


1800 




TD 


01810 




TO 


01820 




TDM 


01830 




C 


1840 




BE 


01850 




C 


01860 




BE 


01870 




C 


1880 




BE 


01890 




C 


1900 




BE 


019 10 




C 


1920 




BE 


01930 




TF 


1940 




AM 


01950 




A 


1960 




TFM 


01970 




TD 


1980 




TD 


01990 




TD 


02000 




C 


020 10 




BE 


02020 




C 


2030 




BE 


02 040 




C 


02050 




BE 


02 060 




C 


02070 




BE 


02080 




SF 


02090 




TF 


02100 




AM 


021 10 




TFM 


02120 




TD 


/ 1 3 




TD 


2 140 




TD 


021 50 




BTM 


2 160 




C 


02170 




BNE 


02180 




TFM 


02190 




TFM 


02200 




BTM 


02210 




BTM 


02220 




BTM 


02230 




B 


02240 




C 



CS1 
CS2 
B S 

CDCNT,100 

*+48 

LAREA 

I DENT+8,BS+158 
*+24 

LAREA+108,0 

LDIN + 38,CLDI N + 38 

CDCNT, 1, 10 

CNT, LAREA+12 

CNT-1 1 LAREA+.10 

ERRSW,0 

AST , LAREA+14 

0RGR2+48 

END+4, LAREA+30 

ENDCD 

CORG , LAR EA+30 
0RGR2 

CCTL, LAREA+30 
0RGR2+48 
CEX, LAREA+30 
EXR2 

ADDR AR-1 , I CTR 
ADDRAR-1,1,10 
I CTR , CNT 
LDIN + 11, 70707 
LDIN+12,ICTR 
LDIN + 10,1 CTR-1 
LDIN+8,ICTR-2 
CDCW, LAREA + 30 
DCWR2 

CDC, LAREA+30 
DCWR2-12 
CDS, LAREA+30 
DSR 

CDSA, LAREA+30 
DSAR 

LAREA+ 10 
WA,CNT 
WA,66, 10 
LDIN+5, 70707 
LDIN+6,WA 
LDIN+4,WA-1 
LDIN+2, WA-2 
TABLE, 
C8,CNT 
*+84 

DM0D+6,LDI N+36 

DM0D+18,LDI N+35 

DMOD,0 

BADD,0 

AADD, 

TESTSW 

C7,CNT 







n m c 

DIN t 


02260 




BTM 


^; 02270 




BTM 


J 02280 




B 


02290 




C 


02 300 




BNE 


02310 




T FM 


02 320 




TFM 


02330 




n t 14 

BTM 


02 340 




B 


02350 




C 


02 360 




BE 


02370 




C 


02 380 




BNE 


02390 




t r i/ 

TFM 


02400 




TFM 


024 10 




BTM 


02420 




B 


02430 




TFM 


02440 


DCWR2 


C 


02450 




B L 


02460 




C 


02470 




B L 


02480 




AM 


02490 




TDM 


02 500 




T F 


025 10 




T r" 

T F 


02520 




B 


> 02 530 




C 


J) 02 540 




BNE 


02550 




SF 


02560 




TFM 


02570 




A 


02580 




A 


02590 


MI NUS 


TDM 


02600 




TFM 


026 10 




A 


02620 




T F 


02630 




TD 


02640 




TD 


02650 




TD 


02 660 




C 


02670 




BE 


02680 




S 


02690 




TD 


02700 




TD 


027 10 




TD 


02720 


AAA 


TD 


02730 




TD 


02740 




TD 


02750 




B 


02760 


DSR 


TFM 


02770 




TF 



02780 TF 
02790 TFM 
02800 C 



*+48 

BADD 

AADD 

TESTSW 

C5 t CNT 

#+60 

DM0D + 6,LDIN + 30 

DM0D+18,LDI N+29 

DMOD 

*-84 

C4,CNT 

*-108 

C2,CNT 

TESTSW 

DM0D+6,LDIN+24 

DM0D+18,LDI N+23 

DMODtO 

TESTSW 

LDIN,54, 10 

TTtCNT 

*+36 

BLANK- 10 , CNT 
*+72 

ERRCNT, 1, 10 
ERRSW f 1 
LDIN+12,LBS 
LDI N + 6, LBS 
TESTSW 

BSI GN, LAREA + 44 

MINUS+12 

LAREA+10 

MI NUS+6,LAREA+43 
MINUS+6,CNT 
MINUS + 6,CNT 
0,5 

T24,23,9 

T24,CNT 

LDIN+6,ZERO 

LDIN+6,T24 

LDIN+4,T24-1 

LDIN+2,T24-2 

AST, LAR EA + 32 

AAA 

ICTR,CNT 

LDIN+12,LAREA+38 
LDIN+10,LAREA+36 
LDI N +8 , LAR E A +3 4 
ADDRAR-1 , LDI N+12 
ADDR AR-2 , LDI N+10 
ADDRAR-3, LDI N+8 
TESTSW 
LDIN,55,10 
LDIN + 28,LDI N + 12 
LDIN+12, BRRD 
LDIN+22,70, 10 
AST, LAR EA + 32 



02810 




BE 


02820 




S 


02830 




SF 


02840 




TF 


02850 




CF 


02860 




TD 


02870 




TD 


02880 




TD 


02890 




B 


02900 


DSAR 


TFM 


02910 




BTM 


02920 




CF 


02930 




TF 


02940 




CF 


02950 




TF 


02960 




B 


02970 




DC 


02980 


TABLE 


C 


02990 




BE 


03000 




C 


03010 




BE 


03020 




C 


03030 




BE 


03040 




C 


03050 




BE 


03060 




C 


03070 




BE 


03080 




C 


03090 




BE 


03100 




C 


031 10 




BE 


03120 




C 


03130 




BE 


03140 




C 


03150 




BE 


03160 




C 


03170 




BE 


03180 




C 


03190 




BE 


03200 




C 


03210 




BE 


03220 




C 


03230 




BE 


3240 




C 


03250 




BE 


03260 




TF 


03270 




B 


03280 


I NM 


TFM 


03290 




BB 


03300 




TFM 


03310 




BB 


03320 




TFM 


03330 




BB 


03340 




TFM 


03350 




BB 


03360 




TFM 



*+60 

I CTR » CNT 

LAREA+31 

LDIN+28,LAREA+38 
LAREA+31 

ADDRAR-lt LDI N+28 
ADDRAR-2* LDI N+26 
ADDRAR-3» LDI N+24 
TESTSW 

LDIN+6,7276, 8 

BADD 

LDIN+30 

LAREA+50,LDIN+34 

LAREA+45 

LDI N + 34» BLANK- 6 

MINUS+72 

5,0 

CMCWr LAREA + 30 
I NM 

CR t LAR EA + 30 

INM+24 

CW, LAREA+30 

INM+48 

CP, LAREA+30 

INM+72 

CSW, LAREA+30 
INM+96 

CCW, LAREA+30 
INM+120 
CA f LAREA+30 
INM+144 
CS, LAREA+30 
INS 

CC, LAREA+30 

INS+24 

CH, LAREA+30 

INS+48 

CB, LAREA+30 

INS+72 

CCSt LAREA+30 
INS+96 

CLCA, LAREA+30 

INS+120 

CNOP t LAREA+30 

INS+144 

LDIN+22,LBS-4 

INLBS+12 

LDIN+22,54,10 

LDIN+22,71,10 

LDIN+22 t 72,10 

LDIN + 22,74, 10 

LDIN+22,23, 10 



A O T 7 A 

33 f 




u a. 
DD 




03380 




T C M 

1 rM 




A T ") A A 

03390 




C3 D 

DD 




03 400 




T C M 

1 rM 


LUlN + £Z»*Hf 1U 


034 10 




BB 




03420 


T M C 

INS 


T C M 


LUlN + ££»0£t JLU 


03430 




BB 




3440 




T r ii 

TFM 


LDI N + 22 9 43 » 10 


03450 




BB 




03460 




TFM 


LDI N+22 >0 3 » 10 


03470 




BB 




03480 




t r ii 


LDI N + 22 » 42 1 10 


03490 




BB 




03500 




TFM 


LDI N + 22 9 2 1 1 10 


035 10 




BB 




03520 




TFM 


LDIN+22,53,10 


03530 




BB 




03 540 




TFM 


LDIN+22,55,10 


03550 




BB 




03 560 s : 


„ ps kin A 

: DMOD 


ROUTINE 


03570 




DC 


5 tO 


03580 


DMOD 


TD 


LDIN+36»LAREA+76 


03590 




TD 


LDIN+35tLAREA+75 


03600 




BB 




036 10*B ADDRESS 


ROUTI NE 


3 620 




DC 


5 tO 


03630 


B ADD 


BD 


#+36 9 LAREA + 54 


03640 




BD 


* + 24t LAR E A + 53 


03650 




B 


INLBS 


03 660 




C 


S9 9 L AR E A+ 54 


03670 




BL 


BINACT 


03680 




C 


ACT' 1 A n C A • C A 

AST* LAR EA + 54 


3690 




BNE 


*+72 


03700 




TF 


LDIN+34,ZER0 


037 10 




TD 


LDIN+34,ICTR 


03720 




TD 


LDIN+32,ICTR-1 


03730 




TD 


LDIN+30,ICTR-2 


03740 




B 


BCADJ 


03750 




TFM 


LEXIT+6, BCADJ 


03760 




TF 


LDIN+34,ZER0 


03770 




TFM 


LOOK+23, LAREA+64 


03780 




TFM 


XX+6,LDIN+34 


03790 




B 


LOOK 


03800 


BCADJ 


C 


BLANK-6, LAREA+74 


03810 




BNE 


ADJB 


3 820 




BB 




03830 


INLBS 


TF 


LDIN + 34, LBS 


03840 




AM 


ERRCNT, 1, 10 


03850 




TDM 


ERRSW » 1 


03860 




BB 




03870 


BINACT 


TF 


LDIN+34 t ZERO 


03880 




TD 


LDIN+34,LAREA+60 


03890 




TD 


LDIN + 32, LAREA+58 


03900 




TD 


LDIN+30,LAREA+56 


039 10 




B 


BCADJ 


03920 


AD JB 


TD 


WAl,LAREA+72 



03930 




TO 






TD 


039S0 




S F 


03960 




TD 


03970 




TD 


03980 




TD 


03990 




SF 

sj I 


04000 

VV ~ V-r V V/ 




r 


040 1 




BNF 


04020 




Q 


040 3 

W \J Z) \J 




R 


04040 






040^0 




r f 


04060 




TD 


04070 

v/ "T \J 1 V/ 




TD 


04 OHO 




TD 


040Q0 




BB 


04 1 00* 


A ADDKESS 


41 10 




nr 


4 1 70 


a a nn 


D U 


41 




r n 

D U 






D 
D 


o 4 1 




r 


04 1 ^0 




R 1 


041 7 




r 


O 4 1 HO 




Q M c 
D l\ t 


O 4 1 Q O 




T P 

1 r 


04200 

VJ *t <C v/ vy 




Tn 

I U 


04? 1 




t n 


04 770 




TO 


042 30 




p. 


04240 




T FM 


042 30 




T F 


04260 




T P M 


042 70 




T FM 


04280 




B 


42 90 


ACADJ 


C 


4 300 

\J " \f \J 




BNE 


43 10 




BB 




INLBSA 


TF 


O 4 3 3 O 




B 


04 340 


AI N ACT 


TF 


043 SO 

U J KJ 




TD 


04 3 AO 




TD 


04370 




TD 


04 ^wn 




B 


4390 


AD J A 


TD 


04400 




TD 


044 10 




TD 


04470 

w T ~T t. w 




SF 


04430 




TD 


04440 




TD 


04450 




TD 


04460 




SF 


04470 




C 


04480 




BNE 



WAl-ltLAREA+70 
WAl-2,LAREA+68 
WA1-2 

WA2,LDI N+34 
WA2-l,LDIN+32 
WA2-2,LDIN+30 
WA2-2 

BSI GN» LAR EA+66 

*+36 

WA2,WA1 

*+24 

WA2,WA1 

WA2 

LDIN+34,WA2 
LDIN + 32 t WA2-1 
LDIN+30,WA2-2 

ROUTINE 
5 t 

*+36 t LAREA+32 

#+24,LAREA+31 

INLBSA 

S9, LAREA+32 

AI NACT 

AST, LAREA+32 
*+72 

LDIN+28,ZER0 
LDIN + 28,ICTR 
LDIN+26,ICTR-1 
LDIN+24,1 CTR-2 
ACADJ 

LEXIT+6, ACADJ 
LDIN+28,ZER0 
L00K+23, LAREA+42 
XX+6,LDI N+28 
LOOK 

BLANK-6, LAREA+52 
ADJA 

LDIN+28,LBS 

INLBS+12 

LDIN+28,ZERO 

LDIN+28,LAREA+38 

LDIN+26,LAREA+36 

LDIN+24,LAREA+34 

ACADJ 

WAl,LAREA+50 
WAl-l,LAREA+48 
WAl-2,LAREA+46 
WAi-2 

WA2,LDIN+28 
WA2-1,LDI N+26 
WA2-2,LDIN+24 
WA2-2 

BSIGN,LAREA+44 
* + 36 



04490 




S 


1.1 A *5 I.I A 1 

vif\c f W Al 


04 500 




B 


#+24 


045 10 




A 

A 


WA2 t W Al 


04520 




CF 


WA2 


04530 




TD 


LDI N + 28 1 WA2 


04540 




TD 


LDI N + 2o» WA2-1 


04550 




TD 


LDI N+24» WA2-2 


04560 




BB 




04570* 


LA BE L 


TABLE 


i nni/ tin 
LOOK UP 


04 580 


LOOK 


T (T kA 

T FM 


*+lot L AbbL- 5 


04590 




C 


9O 


04600 




D C 

DC 


mi/ a nrio 
MV AUUK 


046 10 




c 


MLABEL+69LOOK+I8 


04620 




BE 


1 lip I n 

I NSLB 


04630 




A kA 

AM 


LOOK+I89 15» 10 


04640 




B 


L00K+1 2 


04650 


MVADDR 


TF 


XX+il f L00K+18 


04660 




AM 


XX + I 1 f 3 9 10 


04670 




TP r- 

T F 


XX+23 « XX + 1 1 


04680 


XX 


TD 


9 


04690 




nil r 

BN F 


#+24 


04700 


LEXI T 


B 





047 10 




SM 


XX+6 9 2t 10 


04720 




SM 


XX+1 1 9 1 9 10 


04730 




SM 


XX+239 1 9 10 


04740 




B 


XX 


04750 


1 NSLB 


TDM 


ERRSW 9 1 


04760 




AM 


ERRCNT 9 1 9 10 


04770 




TF 


# + 18 9 XX + 6 


04780 




TF 


/"\ IDC 

9 LBS 


04790 




B 


1 Cl V T T 

LEXI T 


04800 


TESTSW 


CF 


ADDR AR-3 


048 10 




BD 


PRI NT 9 tRRSW 


04820 




BNC2 


no 1 K 1 T 

PRI NT 


04830 




BC 1 


#+24 


04840 




WACO 


1 A D C A 

LAR t A 


04850 




AM 


PULI M+ 1 1 9 1 10 99 


04860 




B 


L00P2 


04870 


r m n r pv 

ENDCD 


T F 


L DI N + l 2 9 cNDC 


04 880 




BTM 


a a r\r\ 

AADD 


04890 




T F 


LDIN + 69LDI N + 2 8 


04900 




TF 


1 Pi T At j O O OI A AIL/ 

LDI N + 28 9 B LANK 


049 10 




T F 


LDI N + 16 9 BLANK— 8 


04920 




BD 


•t, ■ O /. C l"» D C I.I 

# + 24-9 cRRS W 


04930 




BC2 




04940 




RCTY 




04950 




N1TV 

WAIT 


1 A D C A 

LAR t A 


U496U 




till 


* + <i4 


04970 




WACD 


1 A O C A 

LAR fcA 


04980 




RCTY 




r\ y c\f\i\ 

04990 




RCTY 




05000 




SPTY 




05010 




WNTY 


CDCNT-2 


05020 




WATY 


CNTMSG 


05030 




WNTY 


ERRCNT-2 


05040 




WATY 


ERRMSG 



05050 




RCT Y 




05060 




BNLC 


ASMBLY 


05070 




H 




05080 


I NI T 


B 


ASMBLY ,0 ,0 


05090 


ORGR2 


TD 


I CTR 9 LAREA+38 


05100 




TD 


I CTR-1 , LAREA+36 


051 10 




TD 


ICTR-2, LAREA+34 


05120 




SM 


ICTR,1,10 


513 




TFM 


LDIN,55, 10 


05 140 




TF 


LDI N+l 2 , BRRD 


05150 




TF 


ADDRAR-1 , BLANK-8 


05160 




B 


TESTSW 


05170 


EXR2 


BTM 


AADD 


05180 




TF 


LDI N + 6, LDI N+28 


05190 




TF 


LDI N + 28 , BLANK-6 


5 200 




TFM 


LDIN,42, 10 


052 10 




TF 


LDI N + 12, BLANK-6 


5 220 




B 


TESTSW 


05230 


PRI NT 


WAT Y 


LAR EA 


05240 




C 


BLANK-9 , ADDRAR-1 


5250 




BE 


*+24 


05260 




WNTY 


ADDRAR-3 


5270 




RCT Y 




5 280 




B 


TESTSW+36 


52 90 


CS1 


DAC 


50* ,008015,0 220 26,0 30 034,041 ,045,053,0570731026 


5 300 




DAC 


31 , 3, 


53 10 


CS2 


DAC 


50,L072116, 1 10 106, 10 51 1 7B 1 01/ 999 , 02 7 A 0740 28 )027B00102 


5 320 




DAC 


31 ,70B026/0991, 001/00111710 3, 


5330 


BS 


DAC 


50 M 0080 15,022029,056063/ 056029 


0.5 340 




DAC 


31, ,0240671056 3, 


05350 


CLDI N 


DAC 


20, L0010561056 , 


05360 


AST 


DAC 


1,*, 


05370 


P2MSG 


DAC 


46, PLACE CARDS PUNCHED IN READ FEED. PUSH START. 3, 


05.380 


CNTMSG 


DAC 


9, CARDS 3, 


53 90 


ERR MSG 


DAC 


8, ERROR S3 , 


5 400 


ENOC 


DC 


14,217070 7070 7870 


54 10 


RRRD 


DC 


8,71707576 


05420 


ZERO 


DC 


6,707070 


5430 


CMCW 


DC 


6,544366 


05440 


CR 


DC 


6, 590000 


05450 


CW 


DC 


6 ,660000 


05460 


CP 


DC 


6,570000 


05470 


CSW 


DC 


6 ,626600 


5480 


CCW 


DC 


6,436600 


05490 


CA 


DC 


6,410000 


05500 


CS 


DC 


6,620000 


055 10 


CC 


DC 


6,430000 


05520 


CH 


DC 


6, 480000 


05530 


CB 


DC 


6,420000 


05540 


CCS 


DC 


6,436200 


05550 


CLC A 


DC 


6,534341 


5 560 


CNOP 


r-\ f~* 

DC 


6,555657 


05570 


CDCW 


DC 


6,444366 


05580 


CDSA 


DC 


6,446241 


05590 


CDC 


DC 


6,444300 


05600 


CDS 


DC 


6,446 200 



AC; 1 f\ 

OOn l o 


C U K 


DC 


O 




5 620 




DC 


6 i 


> 4363 33 


/A C Z. *J f'\ 

56 30 


P C V 

C t A 


DC 


o 


^ 4 36 / OU 


5 o40 


L BS 


DC 


6 1 




056 50 


T T 


DC 


3 1 


> 32 


5 660 


T 24 


DC 


3 1 


23 


056 70 


S9 


UC 


2 1 


j 69 


5 660 


B S I G N 


DC 


2i 


20 


5690 


W A 


DC 


3 1 


r 


5 700 


C 8 


DC 


3 1 


t 8 


57 10 


C7 


DC 


3 1 


r 7 


5 7 20 


C 5 


DC 


3 1 


c 
D 


v'57'30 


C4 


DC 


3 1 


/ 

) 


5 740 


C 3 


DC 


3i 


1 3 


5 7 5 


C2 


DC 


3i 


r 2 


5 760 


WA1 


DC 


3, 


,0 


5 770 


WA2 


DC 


3, 


t0 


57fc0 


GVERSW 


DC 


1, 





057 90 


ERRSW 


DC 


1, 


,0 


05800 




DEND 


ASMBLY 



PAGE 2 



14/ SPs-A 



ASMBLY 


00402 


LC 


00522 


I NCR 


00846 


REPL 


00966 


REP LI M 


010 50 


MOD 


01086 


LTABLE 


01200 


MLABEL 


01260 


MADDR 


01284 


LBLERR 


01320 


LBLMSG 


01357 


ORGR 


01392 


DCDSR 


01440 


ABSLT 


01632 


NOEND 


01692 


OVE'RR 


01752 


LAREA 


01837 


LD IN 


01947 


IDENT 


01987 


ADDRAR 


02004 


I CTR 


02008 


BLANK 


02020 


LOC 


02024 


CNT 


02027 


LABEL 


2042 


CDC NT 


03382 


ERRCNT 


03388 


STORE 


09109 


END 


03 391 


ENDMSG 


03397 


OVMSO 


03493 


PASS2 


03536 


PCS 


03812 


L00P2 


03860 


PULIM 


03920 


DCWR2 


04724 


MINUS 


04904 


AAA 


05060 


DSR 


05 108 


DSAR 


05276 


TABLE 


05366 


I NM 


05726 


INS 


05894 


DMOD 


06068 


BADD 


06110 


BCADJ 


06314 


IN LBS 


06350 


B INACT 


06398 


ADJB 


06458 


AADD 


06680 


ACAD J 


06884 


INLBSA 


06920 


AINACT 


06944 


ADJA 


07004 


LOOK 


07220 


MVADDR 


07304 


XX 


07340 


LEXIT 


07364 


INSLB 


07424 


TESTSW 


07484 


ENDCD 


07568 


I NIT 


07820 


0RGR2 


07832 


EXR2 


07928 


PRI NT 


08000 


CS 1 


08073 


C S 2 


08235 


BS 


08397 


CLDIN 


08559 


AST 


08599 


P2MSG 


08601 


CNTMSG 


08693 


ERRMSG 


08711 


ENDC 


08739 


BRRD 


08747 


ZERO 


08753 


CMCW 


08759 


CR 


08765 


CW 


08771 


CP 


08777 


CSW 


08783 


CCW 


08789 


CA 


08795 


CS 


08801 


CC 


08807 


CH 


08813 


CB 


08819 


CCS 


08825 


CLCA 


08831 


CNOP 


08837 


CDCW 


08843 


CDSA 


08849 


CDC 


08855 


CDS 


08861 


CORG 


08867 


CCTL 


08873 


CEX 


08879 


LBS 


08885 


TT 


08888 


T24 


08891 


S9 


08893 


BSIGN 


08895 


WA 


08898 


C8 


08901 


C7 


08904 


C5 


08907 


C4 


08910 


C3 


08913 


C2 


08916 


WA1 


089 19 


WA2 


08922 


OVERSW 


08923 


ERRSW 


08924 











000 10* 
00020* 
000 30* 

00040* INITIALIZER ROUTINE 
000 50* 
00060 BEGIN 



- 141 - SIMULATOR 
FOR BASIC 1620 



00070 
00080 
00090 
00100 
001 10 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
002 30 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 



TR 
T F 
SF 
BC4 
RCTY 
WATY 
RCTY 
BTM 
BTM 
BTM 
BTM 
BTM 
B 

WRT BC4 
RCTY 
WATY 
BC4 
TF 

WATY 

AM 
BB 

INITZR RCTY 
RCTY 
WATY 
RATY 
SF 



C 

BE 
C 

BE 
C 

BE 

C 

BE 
C 

BE 

WATY 
RCTY 
RCTY 
B 

INBRCH WATY 
RNTY 
TD 
TD 
TD 

RCTY 
RCTY 
SF 
B 

TE STL DAC 
HEADG DAC 



19998, ASK+41 
11,PRELD+11 
17982 
INITZR 

HEADG 

WRT f WORD 

WRT,W0RD+10 

WRTtWORD+22 

WRT,W0RD+34 

WRT»W0RD+44 

INITZR 

INITZR 

FUNCT,,2 
INITZR 
*+18 ,WRT-1 


WRT+30,80, 10 



ASK 

TESTL 

TESTL-1 

TESTL+6,W0RD+6 
START 

TESTL+8,W0RD+18 
CLEAR 

TESTL+8,W0RD+30 
ALTER 

TESTL+6,WQRD+40 
DSTART 

TESTL+12,W0RD+56 

INBRCH 

INERR 



INITZR 
BGMSG 
TESTL-1 
17985, TESTL-1 
17987, TESTL 
17989, TESTL+1 

17990 
B 

10, LOAD t 

36, FUNCTIONS PERFORMED 



005 70 
00580 

005 90 
00600 

006 10 
00620 
00630 
00 640 
006 50 
00 660 

006 10 
00680 
00690 
00 700 
007 10* 
00 7 20* 

007 30* 
00 740 
007 50 
00 7 60 
00770 
00 730 

007 90 
00 8 00 
00 6 10 
00820 

008 30 
00840 
00850 
00 860 
00870 
00 880* 
00890* 
00900* 

009 10 
00920 
00930 
00 940 
00950 
00960 
00970 
00980 
00990 
01000 

010 10 
01020 
01030 
1040 
01050 
01060 
01070 
01080 
0109 
01100 

011 10 
01120 



FUXCT 



WORD 



ASK 
BGMSG 
I NERR 



DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 



18, REQUEST BY TYPINGS, 



40, 
40, 
40, 
40, 
40, 



LOAD PROGRAM FROM CARD READER 
CLEAR 141 STORAGE 
ALTER STORAGE FROM TYPEWRITER 
DUMP CONTENTS OF 141 STORAGE 
BEGIN EXECUTION OF PROGRAM 

5, LOADS, 

6, CLEARS, 
6, ALTERS, 
5, DUMPS, 

8, EXECUTES, 

23, REQUESTED FUNCTION IS S, 
15, BEGINNING AT S, 

24, INVALID REQUEST WORD.S, 



LOADER ROUTINE 



START 



RCTY 
RCTY 
BC3 
TF 



LDUMP 

18161, BLANKS 
TF 18141, BLANKS 
TF 18123,BLANKS 
TF 18101, BLANKS 
TF 18081, BLANKS 
TF 18061, BLANKS 
TF 18041, BLANKS 
TF 18021, BLANKS-1 
RACD 18003 
TFM FTEST+11, 18002 
B NEXTIN 

INSTRUCTION ACCESS ROUTINE 



NEXT I N BNC1 
BTM 
TF 
TF 
H 

AM 
BT 

FTEST BNF 
TF 
TF 
B 

AM 

BT 

TF 

TF 

TF 

BNF 

B 

CM 
BNE 
BD 
TF 



*+60 

CVTREG,0, 10 
*+35, 17983 
*+18,IREG-l 
0,0 

FTEST+11, 2, 10 

TESTHI , FTEST+11 

*+48,0,7 

*+23, FTEST+11 

17984,0 

TABLE 

FTEST+11, 6, 10 

TESTHI , FTEST+11 

*+23, FTEST+11 

17990,0 

*+23, FTEST+11 

*+24,0 

TABLE 

17983,42, 10 
*+72 

*+60, 17990 
*+35, FTEST+11 



01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410* 
01420 

01430 TESTHI 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 HI MSG 
01520* 
01530* 
01540* 
01550* 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 



TEST 



AM 


*+23,l,10 


BO 


*+24,0 


6 


B+12 


AM 


FTEST+11,2, 10 


BT 


TESTHI t FTEST + ll 


TF 


*+23,FTEST+ll 


BNF 


*+48,0 


TF 


♦♦23, FTEST+il 


TF 


17992,0 


B 


TABLE+288 


AM 


FTEST+11,4, 10 


BT 


TESTHI 9 FTEST+11 


TF 


*+23,FTEST+ll 


TF 


17996,0 


TF 


*+23,FTEST+ll 


BNF 


*+24,0 


B 


TABLE+96 


CM 


17983,23,10 


BE 


SW 


CM 


17983,21, 10 


BE 


CS-60 


AM 


FTEST+11,2,10 


BT 


TESTHI , FTEST+11 


TF 


*+23,FTEST+ll 


BNF 


*-36,0 


TF 


*+23,FTEST+ll 


TF 


17998 f 


B 


TABLE+288 


FOR WRAP-AROUND OFF H 


DC 


5,0 


CM 


20000 


BNL 


*+24 


BB 




RCTY 




WATY 


HIMSG 


RCTY 




H 




B 


DSTART 


DAC 


47, HI LIMIT OF 



PUSH START TO DUMP. 3, 



TABLE SEARCH FOR OPERATIONAL SUBROUTINE 

TABLE ORDER - R t W, P ,H t SW, A, St CS tCW, MCW t C t LCA t B ,NOP. 



TABLE 



CM 


17983,71, 


10 


BE 


R 




CM 


17983,72, 


10 


BE 


W 




CM 


17983,74, 


10 


BE 


P 




CM 


17983,03, 


10 


BE 


H 




CM 


17983,23, 


10 


BE 


SW 




CM 


17983,41, 


10 


BE 


A 




CM 


17983,62, 


10 



01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840* 

01850 

01860 

01870 

01880 

01890 

01900* 

019 10* 
01920* 
01930* 
01940 
01950 
01960 
01970 
01980 
01990 
02000 

020 10 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 

021 10 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 



BE 


S 




CM 


17983*21, 


10 


BE 


CS-84 




CM 


17983,04, 


10 


BE 


CW 




CM 


17983,54, 


10 


BE 


MCW 




CM 


17983,43, 


10 


BE 


C 




CM 


17983,53, 


10 


BE 


LCA 




CM 


17983,42, 


10 


BE 


B 




CM 


17983,55, 


10 


BE 


NEXTIN 




D OP 


CODE ROUTINE 


RCTY 






WATY 


OPMSG 




RCTY 






B 


CORLIM+36 





OPMSG DAC 41, INVALID INSTRUCTION. PUSH START TO DUMP. 3, 

OPERATIONAL SUBROUTINES 



WRITE SUBROUTINE 



W 



RE 



SECL 



TFM 


*+23, 18561 


C 


ZEROES-38,0 


BNE 


RE 


SM 


W+23,2,10 


CM 


W+23, 18401 


BNE 


W + 12 


B 


SECL 


AM 


W+23,2f 10 


TF 


*+47,W+23 


TF 


*+42,W+23 


TF 


*+54,W+23 


TD 


*+47,0 


TD 


0,400 


WATY 


18403 


TDM 


0,0 


RCTY 




TD 


♦+59,18562 


BV 


* + 12 


SF 


18562 


C 


18601, ZEROES 


TDM 


18562,0 


BNE 


*+36 


BV 


*+24 


B 


B-24 


TD 


*+47, 18603 


TD 


18603,400 


WATY 


18563 


TDM 


18603,0 


RCTY 




B 


B-24 


DC 


40,0 



02250* READ A CARD SUBROUTINE 

02260 R 
02270 

02280* PUNCH 
02290 P 
02300 

02310* HALT SUBROUTINE 



RACD 18003 

B B*~24 

A CARD SUBROUTINE 

WACD 18203 

B B-24 



02320 H 
02330 
02340 
02330 
02360 



BTM CVTREG tO » 10 

TF *+35, 17983 

TF *+18 f IREG-l 

H t 

B B-24 



02370* SET WORD MARK SUBROUTINE 



02380 SW 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 



BTM CONVTA 

TF *+30 f 17989 

SM *+18 t ltl0 

SF 

BNF *+24, 17990 

B NEXTIN 

BTM CONVTB 

TF *+30, 17995 

SM *+18,l,10 

SF 

B • NEXTIN 



02490* CLEAR WORD MARK SUBROUTINE 



02500 CW 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 



BTM CONVTA 

TF *+30 t 17989 

SM *+18,l t 10 

CF 

BNF *+24, 17990 

B NEXTIN 

BTM CONVTB 

TF *+30 t 17995 

SM *+18 f ltl0 

CF 

B NEXTIN 



02610* MOVE CHARACTER TO A OR B FIELD WORD MARK SUBROUTINE 



02620 MCW BTM 

02630 TF 

02640 TF 

02650 SM 

02660 BTM 

02670 TF 

02680 TF 

02690 SM 

02700 TF 

02710 BNF 

02720 TDM 

02730 TDM 
02740 MOVE TD 

02750 TD 

02760 NOP 

02770 TF 

02780 BNF 

02790 TDM 

02800 TDM 



CONVTA 

MOVE+llt 17989 
MOVE+23, 17989 
MOVE+23tltlO 
CONVTB 

M0VE-f6 t 17995 

M0VE+18, 17995 

M0VE+18,l t 10 

*+23 t M0VE+18 

MOVEfO 

SFCF+1,2 

MOVE+25,9 

9 

O t O 

SFCF-24 

*+23,M0VE+18 

SFCF+24,0 

SFCF+1,3 

MOVE+25,1 



028 10 


TF 


*+18,M0VE+18 


02820 


SFCF SF 


0,0 


02830 


B 


NEXTIN 


02840 


SM 


MOVE+6,2,10 


02850 


SM 


MOVE+ll, 2t 10 


02860 


SM 


MOVE+18,2, 10 


02870 


SM 


M0VE+23,2t 10 


02880 


CM 


MOVE+18, 18000 


02890 


BL 


CORLIM 


02900 


CM 


MOVE+23, 18000 


02910 


BNL 


MOVE-48 


02920 


CORLIM RCTY 




02930 


WATY 


CORMSG 


02940 


RCTY 




02950 


BTM 


CVTREG,0,10 


02960 


TF 


*+35, 17983 


02970 


TF 


*+18,IREG-l 


02980 


H 


0,0 


02990 


B 


DSTART 


03000 


CORMSG DAC 


48, LOW LIMIT OF CORE EXCEEDED. PUSH START TO DUMP. 3), 


030 10* 


= COMPARE SUBROUTINE 


03020 


C BTM 


CONVTA 


03030 


TF 


*+47, 17989 


03040 


BTM 


CONVTB 


03050 


TF 


* + 18, 17995 


03060 


C 




03070 


BNH 


*+36 


03080 


HIGH SF 


HIGH 


03090 


B 


*+24 


03100 


CF 


HIGH 


03110 


BNE 


*+36 


03120 


EQUAL SF 


EQUAL 


03130 


B 


*+24 


03140 


CF 


EQUAL 


03150 


B 


NEXTIN 


03160* 


BRANCH SUBROUTINE 


03170 


BNF 


B+12, 17984 


03180 


B 


NEXTIN 


03190 


B BNF 


DMOD, 17990 


03200 


BTM 


CONVTA 


032 10 


TF 


FTEST+11, 17989 


03220 


SM 


FTEST+11, 1,10 


03230 


TF 


*+23, FTEST+11 


03240 


BNF 


ERR0R1 


03250 


B 


NEXTIN 


03260 


DMOD BNF 


BCEt 17992 


03270 


SF 


17990 


03280 


CM 


17991,21,10 


03290 


BE 


SLASH 


03300 


CM 


17991,62,10 


033 10 


BE 


SAME 


03320 


CM 


17991,63,10 


03330 


BE 


TINY 


3340 


CM 


17991,64,10 


03350 


BE 


UPPER 


03360 


B 


ERR0R1 



CP 



03370 


SLASH 


BNF 


B+12, EQUAL 


03380 




B 


NEXTIN 


03390 


SAME 


BNF 


NEXTIN, EQUAL 


03400 




B 


B+12 


03410 


TINY 


BNF 


*+24, EQUAL 


03420 




B 


NEXTIN 


03430 




BNF 


B+12, HIGH 


03440 




B 


NEXTIN 


03450 


UPPER 


BNF 


*+24, EQUAL 


03460 




B 


NEXTIN 


03470 




BNF 


NEXTIN, HIGH 


03480 




B 


B+12 


03490 


BCE 


SF 


17996 


03500 




BTM 


CONVTB 


03510 




TF 


*+23, 17995 


03520 




C 


17997,0 


03530 




BE 


B+12 


03540 




B 


NEXTIN 


03550* 


ADD SUBROUTINE 


03560 


A 


TFM 


ADD+1,21, 10 


03570 




B 


*+24 


03580* 


SUBTRACT SUBROUTINE 


03590 


S 


TFM 


ADD+1,22,10 


03600 




BTM 


CONVTA 


03610 




BNF 


*+36, 17990 


03620 




TF 


17995,17989 


03630 




B 


*+24 


03640 




BTM 


CONVTB 


03650 




TFM 


STRIPA+6,FI ELDA-1 


03660 




TF 


STRIPA+11, 17989 


03670 




TF 


STRIPA+35, 17989 


03680 




SM 


STRIPA+35,1,10 


03690 




TF 


TSIGNA+11,STRI PA+35 


03700 




TFM 


STRIPB+6,FIELDB-1 


03710 




TF 


STRIPB+11, 17995 


03720 




TF 


STRIPB+35, 17995 


03730 




SM 


STRIPB+35,1,10 


03740 




TF 


TSIGNB+11, STRIPB+35 


03750 




TF 


SN-25, STRIPB+35 


03760 




TF 


SN+6, STRIPB+35 


03770 




TFM 


SN+47,FIELDB-2 


03780 




TF 


SN-6, 17995 


03790 




TF 


SN+42, 17995 


03800 




SM 


SN+42 f 2,10 


03810 




TF 


SN+59, 17995 


03820 




SM 


SN+59, 3 f 10 


03830 




TF 


SN+102, SN+59 


03 840 


TSIGNB 


TD 


*+22,0 


03850 




CM 


*+9, 5000,8 


03860 




BE 


STRIPB-12 


03870 




TF 


*+23, 17995 


03880 




C 


*+22,0 


03890 




BE 


STRIPB-12, ,9 


03900 




TDM 


FIELDB,0 


03910 




B 


*+24 


03920 




TDM 


FIELDB,0,11 



03930 


STRIPB 


TD 


03940 




SM 


03950 




BNF 


03960 




TF 


03970 




S 


03980 




AM 


03990 




B 


04000 




SM 


04010 




SM 


04020 




CM 


04030 




BE 


04040 




B 


04050 




TF 


04060 




TDM 


04070 


TS1GNA 


TD 


04080 




CM 


04090 




BE 


04100 




TF 


041 10 




C 


04120 




BE 


04130 




TDM 


04140 




B 


04150 




TDM 


04160 


STRI PA 


TD 


04170 




SM 


04180 




BNF 


04190 




B 


04200 




CM 


04210 




BE 


04220 




SM 


04230 




SM 


04240 




SM 


04250 




B 


04260 




TF 


04270 




SF 


04280 


ADD 


H 


04290 




BNF 


04300 




TDM 


04310 




B 


04320 




TDM 


04330 




BNF 


04340 




SF 


04350 




TD 


04360 


SN 


TDM 


04370 




BNF 


04380 




B 


04390 




TD 


04400 




BNF 


04410 




TF 


04420 




TDM 


04430 




B 


04440 




TDM 


04450 




SM 


04460 




SM 


04470 




SM 


04480 




SM 



t 

STRIPB+6, 1, 10 
#+60 

POSCNT, 17995 
POSCNT, STRIPB+11 
POSCNT, 1, 10 
TSIGNA-24 
STRIPB+11, 2, 10 
STRIPB+35,2, 10 
STRIPB+6, FIELDB- 
ERR0R2 
STRIPB 

#+18, STRIPB+6 

0,0,11 

*+22,0 

#+9,5000,8 

STR1PA-12 

#+23,17989 

#+22,0 

STRIPA-12,,9 

FIELDA,0 

#+24 

FIELDA,0,11 
0,0 

POSCNT, 1, 10 
#+24 
ADD-24 
POSCNT, 
ADD-24 

STRlPA+6,1,10 
STRIPA+11,2, 10 
STRIPA+35,2,10 
STRIPA 

#+18,STRIPA+6 
0,0 

FI ELDB, FI ELDA 

#+36,FIELDB 

SN+11,5 

#+24 

SN+11, 7 

#+24,0 

SN+11 

0,FIELDB-1 
0,0 

#+24, SN+11 

NEXTIN 

0,0 

#+48,0 
#+18, #+42 
0,7,11 
NEXTIN 
0,7 

SN+42,2, 10 
SN+47,1,10 
SN+59,2, 10 
SN+102,2,10 



04490 

04500 ERR0R2 
04510 
04520 
04530 

04540 AMSG 
04550 

04560 POSCNT 

04570 FIELDA 

04580 F1ELDB 

04590* CLEAR 

04600 

04610 

04620 

04630 

04640 

04650 

04660 

04670 CS 

04680 

04690 

04700 

047 10 

04720 

04730 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 

04820 

04830 

04840 

04850 

04 860 

04870 

04880 

04890 

04900* LOAD 
04910 LCA 
04920 
04930 
04940 
04950 
04960 
04970* 
04980 



B 

RCTY 
WATY 
RCTY 
B 

DAC 

DAC 

DC 

DS 

DS 



SN+36 
AMSG 

CORLIM+36 

47,B-FI ELD OF 

20, PUSH START 

5,0 

33, 

34, 



ADD OR SUB 
TO DUMP. a, 



INSTR OVER 32 POSITIONS. 



STORAGE SUBROUTINE 

BNF *+24, 17990 

B CS 

BTM CONVTA 

TF FTEST+11, 17989 

SM FTEST+llt ltlO 

SF 17990 

TF 17989,17995 

TFM CS+210, 18000 

TD CS+248, 17985 

A CS+208, CS+248 

A CS+208, CS+248 

TFM CS+234, 18000 

TD CS+249, 17987 

A CS+233, CS+249 

A CS+233, CS+249 

TFM CS+191,BLANKS-19 

TD CS+248, 17989 

A CS+191, CS+248 

A CS+191,CS+248 

TD CS+248, 17987 

BTM CONVTA 

TF CS+186, 17989 

TF 0,0 

BD CS+228, CS+248 

CF 0,0 

B NEXTIN 

TF 0, BLANKS 

SM *+8, 1,710 

SM CS+234, 20, 10 

B CS+192 
CHARACTERS TO A-FIELD WORD MARK SUBROUTINE 

BTM CONVTA, 



04990 
05000 
05010 
05020 
05030 
05040 



TF 
BTM 
TF 
TF 
B 

CONVERT A 
DC 

CONVTA TD 
TD 
TFM 
A 

AM 
BB 



LCA+59, 17989 
CONVTB 
LCA+54, 17995 
0,0 

NEXTIN 
SUBROUTINE TO 
5,0 

17988,17987 

17987,17985 

17986,0,10 

17989,17989 

17989,18001 



CONVERT FROM 141 TO 1620 ADDRESSING 



05050* CONVERT B SUBROUTINE TO CONVERT FROM 141 TO 1620 ADDRESSING 



05060 

Vy ~s \J \j \J 




DC 


5 «0 


05070 


C GNVTB 

Vy w 1 \ V 1 LJ 


TD 


17994. 17993 


05080 




TD 


17993 t 17991 


VJ J \J ~ \J 




TFM 


17992,0, 10 


nt; i on 




A 


17995, 17995 


nm in 




AM 


17995, 18001 






BB 




o s i ^ o * 








\J -J i TV p 


f 1 F AR 

v.. U C M rs 


ROUTINE 










05 160 


r 1 F AR 


RCTY 




05170 




RCTY 




5 180 

\J .J X \J \J 




TFM 


CLEAR+42, 19999 


5190 




TF 


19999, BLANKS, 2 


05200 




SM 


CLEAR+42, 20, 10 


5? 10 




CM 


CLEAR+42, 17999 


05 ??0 




BNE 


CLEAR+36 


052 30 


PRELD 


B 


INITZR,,0 


05240 


B L ANKS 


DC 


21,0 


052 50* 








05260* 


DUMP 1 


ROUTINE 


052 70* 








05280 


DS TART 


RCTY 




0,5290 




RCTY 




05300 




TF 


0PREG+10, 17983 


053 10 




BTM 


CVTREG,0,10 


05320 




RCTY 




05330 




WATY 


TITLE 


05340 




RCTY 




05350 




SPTY 




05360 

\J *J *j \J \J 




WNTY 


IREG-3 


05370 




WATY 


OPREG 


05 380 




RCTY 




05390 




RCTY 




05400 




CF 


BLNKS-49 


054 10 




CF 


BLNKS-99 


05420 




TFM 


CARDNO ,0 , 10 


05430 




TFM 


AODRltO, 9 


05440 




TFM 


ADDR2, 49,9 


05450 




TFM 


SAVC+11, 18101 


05460 




TFM 


INSRM+6, 18101 


05470 




TFM 


IN+18, 18101 


05480 




TFM 


INSRM+23, 18000 


05490 


SAVC 


TD 


IN+23,0 


05500 


INSRM 


TD 


0,400 


055 10 




TR 


BANDA+37,0 


05520 




AM 


CARDNO, 01, 10 


05530 




TD 


BANDA,CARDN0-1 


05540 




TD 


BANDA+2, CARDNO 


05550 




AM 


CARDNO, 01, 10 


05560 




TD 


B AN DB, CARDNO- 1 


05570 




TD 


BANDB+2, CARDNO 


05580 




TDM 


BANDA+137,0 


05590 




TD 


BANDA+18 ,ADDR1 


05600 




TD 


BANDA + 1 6, ADDR 1- 



05610 




TD 


05620 




TD 


05630 




BNC2 


05640 




TDM 


05650 




WACD 


05660 




B 


05670 




BNC1 


05680 




H 


05690 


TYPE 


TFM 


05700 




C 


57 10 




BNE 


05720 




SM 


05730 




B 


5 740 




AM 


05750 




TF 


05760 




TF 


05770 




TD 


05780 




WATY 


05790 




TDM 


05800 




RCTY 


05810 


PWM 


TF 


05820 




TFM 


05830 




TFM 


05840 




TFM 


05850 


TEST5 


BNF 


05860 




TFM 


05870 




TF 


05880 


I NCR 


AM 


05890 




AM 


05900 




CM 


05910 




BNE 


05920 


WRITE 


BNC2 


05930 




CM 


05940 




BNE 


05950 




TFM 


05960 




TD 


05970 




TD 


05980 




TD 


05990 




WACD 


06000 




TF 


06010 




B 


06020 




AM 


06030 


INSRM2 


TD 


06040 




WATY 


06050 




RCTY 


06060 




BD 


06070 


IN 


AM 


06080 




TDM 


06090 




TF 


06100 




TF 


06110 




AM 


06120 




AM 


06130 




AM 


06140 




CM 


06150 




BNE 


06160 




TD 



BANDA+30, ADDR2-1 
BANDA+28, ADDR 2-2 
*+48 

BANDA+138,0 

BANDA 

PWM 

*+24 

*+23,BANDA+136 
ZEROES- 38 f 
*+36 

TYPE+23,2, 10 

TYPE+12 

TYPE+23,2,10 

*+30,TYPE+23 

*+42,TYPE+23 

Of 400 

BANDA+16 

0,0 

BANDB+138, BLNKS 

TEST5+ll,BANDA+37 

TEST5+18,BANDB+38 

INSRM2+6,BANDB+16 

INCR,0,27 

0,71,10 

INSRM2+6,*-6 

TEST5+li,2,10 

TEST5+18,2 

TEST5+11,BANDA+137 

TEST5 

*+120 

CARDN0,40, 10 
*+60 

BANDB+9, 70707 
BANDB+10 ,1 REG-1 
BANDB+8 , I REG-2 
BANDB+6,1 REG- 3 
BANDB 

BANDB+10,ZER0ES-34 
*«»-60 

INSRM2+6,2,10 

0,400 

BANDB+16 

OUT,SWENDD 
SAVC^llt 100,9 
0,0 

INSRM4-6,SAVC + 11 

IN+18,SAVC+11 

INSRM+23, 100,9 

ADDR1,50,10 

ADDR2,50,10 

SAVC+11, 20001 

SAVC 

1,400 



06170 




TDM 


SWENDD, 1 


06180 




TR 


BANDA+37, 19900 


06190 




B 


INSRM+24 


06200 


OUT 


TDM 


lt9 


062 10 




TDM 


SWENDD, 


06220 




B 


INITZR 


06230 


BANDA 


DAC 


50,01 000 - 


06240 




DAC 


30 1 


06250 


BANOB 


DAC 


50,02 


06260 




DAC 


30, 


06270 




DC 


22,0 


06280 




DC 


50,0 


06290 


BLNKS 


DC 


50,0 


06300 


SWENDD 


DC 


ltO 


06310 


ADDR1 


DC 


3,0 


06320 


A0DR2 


DC 


3,49 


06330 


CARDNO 


DC 


2,0 


06340* 


' PRINT 


REGISTERS SUBROUTINE 


063l>0 


TITLE 


DAC 


14,1 -REG OP-REGS 


06360 


I REG 


DC 


6, 2D, 


06370 


OPREG 


DAC 


7, a, 


06380 


DI V 


DC 


6,0 


06390 




DC 


5,0 


06400 


CVTREG 


TF 


IREG-1, FTEST+11 


06410 




SM 


IREG-1, 18000 


06420 




TF 


DI V-l , I REG-l 


06430 




S 


DI V, IREG-1 


06440 




S 


DIV, IREG-1 


06450 




S 


DI V, IREG-1 


06460 




S 


DIV, IREG-1 


06470 




S 


DIV, IREG-1 


06480 




TF 


IREG-1,DI V-l 


06490 




BB 





06500* 

06510* ALTER ROUNTINE AND 
06520* LOAD DUMP CARDS ROUTINE 



06530* 








06540 


ALTER 


WATY 


BGMSG 




06550 




RNTY 


TESTL-1 




06560 




SF 


TESTL-1 




06570 




TF 


FIRST+2, 


TESTL+1 


06580 




TDM 


ALTSW,1 




06590 


NEXTL 


RCTY 






06600 




RCTY 






06610 




CF 


FIRST 




06620 




WNTY 


FIRST 




06630 




SF 


FIRST 




06640 




RCTY 






06650 




TFM 


READ1+6, 


18001 


06660 




A 


READ1+6, 


FIRST+2 


06670 




A 


READ1+6, 


FIRST+2 


06680 


READ1 


RATY 







06690 




RCTY 






06700 




RNTY 


WMS+19 




06710 




TF 


STFLG+6, 


READ1+6 


06720 




SM 


STFLG+6, 


1,10 



06730 

06740 

06750 

06760 

06770 

06780 

06790 

06800 

06810 

06820 

06830 

06840 

06850 

06860 

06870 

06880 

06890 

06900 

06910 

06920 

06930 

06940 

06950 

06960 

06970 

06980 

06990 

07000 

07010 

07020 

07030 

07040 

07050 

07060 

07070 

07080 

07090 

07100 

071 10 

07120 

07130 

07140 

07150 

07160 

07170 

07180 

07190 

07200 

07210 

07220 

07230 

07240 

07250 

07260 

07270 

07280 



COMMON 

TRM 

TDIG 

STFLG 



RM 



LOUMP 



TR 



EXEC 



COERR 



ALTSW 
CDMSG 
FIRST 



TFM 
TFM 
BNR 
B 

BD 
TDM 

B 

TDM 

SF 

AM 

AM 

AM 

CM 

BNE 

SM 

SF 

A 

BD 
BD 
SF 

RACD 
TD 
BD 
B 

TD 

TD 

TD 

TFM 

A 

A 

TR 

RNCD 

TD 

BD 

TF 

SF 

CM 

BE 

TF 

AM 

TDM 

TDM 

B 

TD 

TD 

TD 

SF 

TFM 

B 

WATY 
RCTY 
H 
B 

DC 

DAC 

DSC 



TDIG + 11, WMS+19 

TRM+11,WMS+19 

*+24,0 

RM 

*+36,0 

STFLG+1,3 

*+24 

STFLG+1,2 


STFLG+6,2, 10 
TDIG + 11,1, 10 
TRM+11, 1,10 
TDIG+11,WMS+119 
TRM 

TDIG+11,WMS+19 
TDIG+9 

FIRST+2,TDI G+ll 
NEXTL, ALTSW 
EXECWMS+3 
BANDC+16 
BANDC 

BANDC+138,400 
*+24,BANDC+19 
CDERR 

FIRST+2,BANDC+20 

FIRST+1,BANDC+18 

FIRST, BANDC+16 

TR+6, 18000 

TR+6,FIRST+2 

TR+6,FIRST+2 

0,BANDC+37 

WMS 

WMS+69,400 
CDERR, WMS+16 
STFLG+6,TR+6 
WMS 

WMS+1,40,10 
* + 48 

*+30,TR+6 
*+18, 101,9 
0,0 

ALTSW, 
COMMON 
17985, WMS+3 
17987,WMS+4 
17989, WMS+5 
17990 
1,49,10 
B 

CDMSG 



START 
ltO 

38, SEQUENCE ERROR. PUSH START TO RE-L0AD3, 
4,0003, 



07290 WMS DSS 120 

07300 BANDC DAC 50, 

07 310 DAC 30 f 

07320 DEND BEGIN 



o 



PAGE 2 



BEGIN 


00402 


WRT 


00558 


HEADG 


01011 


FUNCT 


01119 


INERR 


01655 


START 


01702 


H I MSG 


02573 


TABLE 


02666 


RE 


03216 


SECL 


03312 


H 


03580 


SW 


03640 


SFCF 


04144 


CORLI M 


04264 


EQUAL 


04576 


B 


04648 


TINY 


04912 


UPPER 


04960 


TSIGNB 


05404 


STRIPB 


05512 


SN 


06028 


ERR0R2 


06196 


FI ELDB 


06449 


CS 


06534 


CLEAR 


07038 


PRELD 


07122 


I NSRM 


07420 


TYPE 


07648 


WRI TE 


07924 


INSRM2 


08056 


BANDB 


08457 


BLNKS 


08737 


CARDNO 


08746 


TITLE 


08 749 


CVTREG 


08808 


ALTER 


08928 


TRM 


09180 


TDIG 


09204 


TR 


09516 


EXEC 


09672 


FIRST 


09 870 


WMS 


09874 



INITZR 


00654 


INBRCH 


00882 


WORD 


01519 


ASK 


01579 


NEXT IN 


01870 


FTEST 


01954 


ERR0R1 


03002 


OPMSG 


03051 


ZEROES 


03531 


R 


03532 


CW 


03772 


MCW 


03904 


CORMSG 


04361 


C 


04456 


DMOO 


04732 


SLASH 


04864 


BCE 


05008 


A 


05080 


TSIGNA 


05680 


STRIPA 


05788 


AMSG 


06245 


POSCNT 


06 38 2 


LCA 


06810 


CONVTA 


06888 


BLANKS 


07154 


DST ART 


07156 


PWM 


07792 


TEST5 


07840 


IN 


08104 


OUT 


08260 


SWENDD 


08738 


ADDR1 


08741 


IREG 


08781 


OPREG 


08783 


NEXTL 


08988 


READ 1 


09096 


STFLG 


09252 


RM 


09324 


CDERR 


09744 


ALTSW 


09792 


BANDC 


09995 







TESTL 


0099 1 


BGMSG 


01625 


TESTHI 


02476 


W 


03132 


P 


03556 


MOVE 


04048 


HIGH 


04528 


SAME 


04888 


S 


05104 


ADD 


05932 


FIELDA 


0641f> 


rnNVTB 

vUn V I IJ 


06966 


SAVC 


07408 


I NCR 


07876 


BANDA 


08297 


ADDR2 


08744 


DI V 


08801 


COMMON 


09156 


LDUMP 


09 38 4 


CDMSG 


09795 



CI) 



PAGE 2 



BEGIN 


00402 


WRT 


00558 


HEADG 


01011 


FUNCT 


01119 


IN6RR 


01655 


START 


01702 


HI MSG 


02573 


TABLE 


02666 


RE 


03216 


SECL 


03312 


H 


03580 


sw 


03640 


SFCF 


04144 


CORLIM 


04264 


EQUAL 


04576 


B 


04648 


TINY 


04912 


UPPER 


04960 


TSIGNB 


05404 


STRIPB 


05512 


SN 


06028 


ERR0R2 


06196 


FI ELDB 


06449 


CS 


06534 


CLEAR 


07038 


PRELD 


07122 


I NSRM 


07420 


TYPE 


07648 


WRITE 


07924 


INSRM2 


08056 


8ANDB 


08457 


BLNKS 


08737 


CARDNO 


08746 


TITLE 


08749 


CVTREG 


08808 


ALTER 


08928 


TRM 


09180 


TDIG 


09204 


TR 


09516 


EXEC 


09672 


FI RST 


09 87 


WMS 


09874 



SYMBOL. TA K C € 
l + l S it*- A 



INITZR 


00654 


INBRCH 


00882 


WORD 


01519 


ASK 


01579 


NEXTIN 


01870 


FTEST 


01954 


ERR0R1 


03002 


OPMSG 


03051 


ZEROES 


03531 


R 


03532 


CW 


03772 


MCW 


03904 


CORMSG 


04361 


C 


04456 


DMOO 


04732 


SLASH 


04864 


BCE 


05008 


A 


05080 


TSIGNA 


05680 


STRIPA 


05788 


AMSG 


06245 


POSCNT 


06 38 2 


LCA 


06810 


CONVTA 


06888 


BLANKS 


07154 


DST ART 


07156 


PWM 


07792 


TEST5 


07840 


IN 


08104 


OUT 


08260 


SWENDD 


08738 


ADDR1 


08741 


IREG 


08781 


OPREG 


08783 


NEXTL 


08988 


READ 1 


09096 


STFLG 


09252 


RM 


09 324 


CDERR 


09744 


ALTSW 


09792 


BANDC 


09995 







TESTL 


0099 1 


BGMSG 


01625 


TESTHI 


02476 


W 


03132 


P 


03556 


MOVE 


04048 


HIGH 


04528 


SAME 


04888 


S 


05104 


ADD 


5932 


FIELDA 


0641b 


CONVTB 


06966 


SAVC 


07408 


I NCR 


07876 


BANDA 


08 29 7 


ADDR2 


08744 


DI V 


08801 


COMMON 


09156 


LDUMP 


09 38 4 


CDMSG 


09795 



